GDpngcat.pm
アクセスカウンタとかでgifの連結を行うgifcat.plというPerl Moduleがあるのですが、コレがなかなか速度が激遅で(#゚Д゚)ゴルァ!!
そこでGDモジュールを利用して高速なpng連結Perl Moduleを作成した。当然ながらGDが必要だが、XREAの一部のサーバにはインスコ済みのようだ。gifcat.plに比べて10倍近い高速化が実現されておる。
≫スクリプトはこちら(GDpngcat.pm)
<動作環境>
GD.pmがインスコ済みな環境。(レンタル鯖ではあまり入っていないが...)
<モジュールの設置方法>
(1)メインCGIが設置してあるディレクトリ配下に'Drk'というフォルダを作成します。
(2)'Drk'ディレクトリ配下にGDpngcat.pmを設置します。
(3)メインCGI内の #!/usr/bin/perl の下付近に、use lib "./"; を追加します。
以上で、メインCGI内でGDpngcatが使用可能になります。
<GDpngcatのメソッド>
インタフェースはgifcatにあわせたので、移行は簡単と思います。
そこでGDモジュールを利用して高速なpng連結Perl Moduleを作成した。当然ながらGDが必要だが、XREAの一部のサーバにはインスコ済みのようだ。gifcat.plに比べて10倍近い高速化が実現されておる。
≫スクリプトはこちら(GDpngcat.pm)
<動作環境>
GD.pmがインスコ済みな環境。(レンタル鯖ではあまり入っていないが...)
<モジュールの設置方法>
(1)メインCGIが設置してあるディレクトリ配下に'Drk'というフォルダを作成します。
(2)'Drk'ディレクトリ配下にGDpngcat.pmを設置します。
(3)メインCGI内の #!/usr/bin/perl の下付近に、use lib "./"; を追加します。
以上で、メインCGI内でGDpngcatが使用可能になります。
<GDpngcatのメソッド>
インタフェースはgifcatにあわせたので、移行は簡単と思います。
- $image = Drk::GDpngcat->new();
コンストラクタ。引数なし。 - $image->pngcat(@files);
pngファイル連結メソッド。引数は連結するpngファイル一覧の配列を渡す。
- スポンサーリンク -
- スポンサーリンク -
コメントやシェアをお願いします!