У кого есть опыт работы с Image::Magick, подскажите в чем проблема.
use Image::Magick;
my $image=Image::Magick->new;
$image->Read(\'old_file.jpg\');
# даже если ничего здесь не делать
$image->Write(\'new_file.jpg\');
- результат файл уменьшается, качество теряется.
Такой фокус тоже не помогает:
my $quality=$image->Get (\'quality\');
$image->Set(quality=>$quality);