gifcat.plの挙動について。

質問

埋め込み式カウンターを作っているのですが、gifcat.plの画像の出力の方法が分かりません。

***count.cgi***********************
　require "./gifcat.pl";
　open(OUT, "> out.gif");
　binmode(OUT);
　print OUT &gifcat'gifcat(@imgs);
　close(OUT);
　exit 0;
***count.cgi***********************

***html内**************************
　あなたは<IMG src="./count.cgi">人目。
***html内**************************

で、画像は連結されるんですが、それをhtml内に出力させるにはどうしたらいいのでしょうか？
結合画像が、out.gifなので、

あなたは<IMG src="./out.gif">人目。

というのなら分かるんですが。

回答No.2

galluda · ベストアンサー

がるです。
んっと。

print "Content-type: image/gif\n\n";
@img[0] = 'img/0.gif';
@img[1] = 'img/1.gif';
@img[2] = 'img/2.gif';
@img[3] = 'img/3.gif';
@img[4] = 'img/4.gif';

# 基本的な使い方
　require "./gifcat.pl";
　print &gifcat'gifcat(@img);
　exit 0;

としてみてください。
プログラム的にちょっとわかりやすく順番を整理すると

# ライブラリの取り込み
require "./gifcat.pl";

# 画像の準備
@img[0] = 'img/0.gif';
@img[1] = 'img/1.gif';
@img[2] = 'img/2.gif';
@img[3] = 'img/3.gif';
@img[4] = 'img/4.gif';

# 出力
print "Content-type: image/gif\n\n";
print &gifcat'gifcat(@img);

# 終了
exit 0;

といった感じでしょうか。

お礼

あー、なんて事はない。
サブルーチンの戻り値が、結合された画像になってるって事か。
冷静というか、一歩引いてみると、分かるものですねー。

サンプルにしたものは出力される画像もないし、そう分かれば、open(OUT, "> out.gif");がhtmlに埋め込む際に必要なものではなく、たんなるデータの上書き保存だと。

分かりやすく書いて頂いて、ありがとう。

補足

所で、gif画像が乱れます。
gifによっては乱れると、どこかのＨＰで見たのですが、なにか基準はあるのでしょうか？

回答No.1

galluda

がると申します。
基本的には「HTTPの動きとやり取りの流れ」をきちんと履修されることをお勧めいたしますが。
短絡的には、画像出力の前に、ヘッダとして
Content-type: image/gif
を出力してあげれば動くかと思います。
Perl的には
print "Content-type: image/gif\n\n";
ですね。

補足

あ、すいません。
こう書いていたのですが、やはり表示されませんでした。
上の部分は、コピーしていませんでした。

print "Content-type: image/gif\n\n";
@img[0] = 'img/0.gif';
@img[1] = 'img/1.gif';
@img[2] = 'img/2.gif';
@img[3] = 'img/3.gif';
@img[4] = 'img/4.gif';

# 基本的な使い方
　require "./gifcat.pl";
　open(OUT, "> out.gif");
　binmode(OUT);
（print "Content-type: image/gif\n\n";）※２
　print OUT &gifcat'gifcat(@img);
　close(OUT);
　exit 0;

位置が違うのかな？と思い、※２の位置にして試してみたのですが、やはり。
gif画像はできているのですが。