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にあわせたので、移行は簡単と思います。
  • $image = Drk::GDpngcat->new();
    コンストラクタ。引数なし。
  • $image->pngcat(@files);
    pngファイル連結メソッド。引数は連結するpngファイル一覧の配列を渡す。
- スポンサーリンク -

- スポンサーリンク -