Image::Magickでサムネイル画の表示

質問

Image::Magickでサムネイル画の表示するCGIです
./image　　　　　　　属性は777
/$fmain_no.jpg　　　　属性は644
サムネイル画を表示するとプロバイダーのサバーに保存されている画像も小さくなってしまいました、困っています、
サバーにある画像はそのままで画像を読んでサムネイル画を表示するようにしたいのですがよろしくお願いします。

use Image::Magick;

$img_file = "./image/$fmain_no.jpg";
$height = 200;
$i = Image::Magick->new;
$i->Read($img_file);
$i->[x]->Scale("x$height");
$i->Write("$img_file");

print "<IMG SRC=\"$img_file\" BORDER=0>\n";

回答No.1

moon_night

多分 $i->Write("$img_file"); で 元のファイルを上書き保存しているので、Write("$img_file")で指定する$img_fileを違う名前で保存するように変更してみてください。