perl Image::Magick

質問

恐れ入ります。perlでImage::Magickで画像の処理をしているのですが、画像によって途中までしか変換されていなかったりする画像（下部分が灰色）のものが出ます。この原因と対策をご存じの方はいらっしゃいますか？

$filename = "./folder/image.jpg";
$filename 2= "./folder2/image.jpg";

$image = Image::Magick->new;
$image->Read("$filename");
$width = $image->Get('width');
$height = $image->Get('height');

$image -> Set( quality => 60 );
$image->Write("$filename2");

以上のようにしています。HTMLからファイルを受け取る部分は、

my ($query,$fileName);
$query = new CGI;
$fileName = $query->param('fileName');

open(OUT, ">./folder/image.jpg");
binmode(OUT);
while(read($fileName, $buffer, 2048))
{
print OUT $buffer;
}

としています。HTMLからのアップロードは、対象フォルダの画像を確認した場合問題無くアップされています。以上よろしくお願いいたします。

回答No.1

asciiz · ベストアンサー

＞画像によって途中までしか変換されていなかったりする画像（下部分が灰色）のものが出ます。

まず返還前の画像データがきちんと受信できているか、からの確認ですね。
受け取ったファイルを一旦そのまま保存してみましょう。

というか、ファイルを受け取る部分で
close OUT;
をしていないのですか?

読み込むだけのファイルならばopenしっぱなしでもいいですが、書き込むファイルはきちんとcloseしないと、書き込みバッファがフラッシュされず、尻切れになる可能性があると思います。

--

ちなみにJPEGデータというのは、非プログレッシブ(通常JPEG)の場合、左上から8x8ドット単位のマスごとにデータが保存されたものが並んでいます。
そのデータを途中まで受け取ると、

■■■■■■
■■■■■■
■■■■□□
□□□□□□
□□□□□□

画像と灰色の境目ではこのように段ができているでしょう。

お礼

ありがとうございます。
close(OUT);を入れたら無事アップロードができました！