воскресенье, 1 июня 2008 г.

Конвертирование изображений в Perl

use Image::Magick;
my $image = Image::Magick->new; #новый проект
my $x = $image->Read("photo.jpg"); #открываем файл jpg
$x = $image->Write("photo.png"); #Сохраняем изображение png.

Комментариев нет: