ImageMagick 调用 Perl API - PerlMagick

fmms 12年前

PerlMagick 是 ImageMagick 图像处理库的面向对象 Perl API 调用包。

示例代码:

#!/usr/local/bin/perl
use Image::Magick;

my($image, $x);

$image = Image::Magick->new;
$x = $image->Read('girl.png', 'logo.png', 'rose.png');
warn "$x" if "$x";

$x = $image->Crop(geometry=>'100x100+100+100');
warn "$x" if "$x";

$x = $image->Write('x.png');
warn "$x" if "$x";

项目主页:http://www.open-open.com/lib/view/home/1329488099155