Forum Webscript.Ru

Программирование => Perl => Тема начата: YA от 04 Октября 2002, 02:31:24

Название: Image::Magick сам увеличивает сжатие JPEG
Отправлено: YA от 04 Октября 2002, 02:31:24

У кого есть опыт работы с 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);