画像が表示できません。

質問

print "Content-type: image/gif\n\n";

open(IMG,"./1.gif");
$img =(IMG);
close(IMG);

print $img;

画像ファイル "http://0.0.0.0/a.cgi" は壊れているため、表示できませんでした。
となり表示ができません。

回答No.3

t140 · ベストアンサー

＃２ですが、いまひとつ書き方がよくなかったので再度

open(IMG, "./1.gif");
binmode(IMG);
binmode(STDOUT); # STDOUTにもbinmode必要だったかな？
print "Content-type: image/gif\n\n";
while (read(IMG, $img, 1024)){
print $img;
}
close(IMG);

回答No.2

t140

＃１さんの回答と併せて以下の変更もおこなってみてください。

$img =(IMG);
　　　　↓
binmode(IMG);
while (<IMG>){
print;
}

回答No.1

bgbg

OSはWindowsでしょうか？
openした後に

binmode IMG;

をしましょう。
Windows上でバイナリファイルはそのままでは扱えません。