perlで画像表示

質問

htmlファイルから<img src="./aa.cgi">と書いて連続した画像を表示させたいのですが

@aa =(1,2,3);

foreach(@aa){
open(IMG, "./$_.gif");
binmode(IMG);
binmode(STDOUT);
print "Content-type: image/gif\n\n";
read(IMG, $img, 1024);
print $img;
close(IMG);
}

こう書いたらだめなのでしょうか？

回答No.2

t140 · ベストアンサー

＃１ですが、間違えました。複数画像はファイル構造が
それぞれ別物ですので連続して出力してもくっついて表示
できるものではありません。
それぞれの画像を別々のタグで表示させるようにするか、
画像のファイル構造を理解して結合させるかしかないでしょう。

とほほさんのところにGIF画像連結ライブラリがありますので参考までに

参考URL：

http://www.tohoho-web.com/wwwsoft.htm

回答No.3

pipipi523

画像にもヘッダー部分があるので単に繋げるだけではダメです
こちらのGIF画像連結ライブラリを使ってはどうでしょう？
http://www.tohoho-web.com/wwwsoft.htm

回答No.1

t140

画像が１０２４バイト以下なら表示できると思いますが、
画像サイズがわからないのであれば
read(IMG, $img, -s IMG);

と書いたり、

while (read(IMG, $img, 1024)){
print $img;
}
と書いて負荷を和らげたりしてはどうでしょうか？