Как говорит нам Википедия, ImageMagick — свободный и многоплатформенный пакет программ для неинтерактивной (пакетной) обработки графических файлов. Может использоваться с языками Perl, C, C++, Python, Ruby, PHP, Pascal, Java, в скриптах командной оболочки или самостоятельно.

Дистрибутивы можно скачать с официального сайта imagemagick.org. Для *nix подобных систем установка ImageMagick:

sudo apt-get install perlmagick

Итак, мы рассмотрим пример обрезки изображения на языке Perl, используя модуль ImageMagick.

use Image::Magick;
my $image = Image::Magick->new;
my $x = $image->Read("photo.jpg");
$x = $image->Resize(geometry=>'200x200^');
$x = $image->Set(gravity=>'center');
$x = $image->Crop(geometry=>'200x200+0+0', gravity=>'center',);
$x = $image->Write("photo.jpg");

 1. Исходное изображение

исходное изображение

 


2. После обработки кропом ImageMagick

image magick