Как ускорить ресайз изображений на perl?

Question

[artem78]

Есть скрипт на perl, который производит увеличение размера изображений в папке в два раза. Сейчас использую модуль ImageMagick. Картинки размером 1024x768 обратываются по 8 секунд. При большом кол-ве файлов это очень долго. Есть ли способ это ускорить?

my ($w, $h) = imgsize($filename);
my $img = new Image::Magick;
my $r = $img->Read($filename); # 0.5 сек
my ($w2, $h2) = ($w * 2, $h * 2);
$r = $img->Resize(width => $w2, height => $h2, filter => 'Lanczos'); # 5 сек
$img->Write($new_filename); # 2.5 сек

Answer 1

[Ilya33]

Попробуйте поэкспереиентировать с MAGICK_THREAD_LIMIT;
Например:
BEGIN { $ENV{MAGICK_THREAD_LIMIT} = 2; }

Comments

[artem78]

Тоже самое. Он и без этого по-умолчанию использует все доступные ядра процессора.

Answer 2

[d'Ivan]

Попробовать масштабирование изображений с привязкой к библиотеке epeg:
perl-users.jp/articles/advent-calendar/2010/english/22