他のサーバで問題なく動くのでセットアップばかりに目が行ってましたが・・・試しに変換を一切しないで呼んで表示するだけにしてみました。それでも画像の最後の方が乱れます。ソースを調べてみると・・・
my $i = Image::Magick->new;
$i->Read($file);
print "Content-type: image/jpeg\n\n";
binmode STDOUT;
$i->Write("jpeg:-");
print "\n\n"; ← ここが原因!
はて・・・この改行2つはなんで入れたんだったかなぁ・・・これ書いたの遙か昔なので今となってはわかりませんが、最初に参考にしたソースにでも付いてたんでしょうかね。とりあえず、これを削ったら正常に表示されるようになりました。
他のサーバでは問題ないのでバージョン依存といえばそうですが、不要なものであることは間違いなさそうです。
なお、こちらの画像変換スクリプトは、ショップメーカーシリーズにて使用されています。どうぞご参照ください。
my $i = Image::Magick->new;
$i->Read($file);
print "Content-type: image/jpeg\n\n";
binmode STDOUT;
$i->Write("jpeg:-");
print "\n\n"; ← ここが原因!
はて・・・この改行2つはなんで入れたんだったかなぁ・・・これ書いたの遙か昔なので今となってはわかりませんが、最初に参考にしたソースにでも付いてたんでしょうかね。とりあえず、これを削ったら正常に表示されるようになりました。
他のサーバでは問題ないのでバージョン依存といえばそうですが、不要なものであることは間違いなさそうです。
なお、こちらの画像変換スクリプトは、ショップメーカーシリーズにて使用されています。どうぞご参照ください。