perl - 你如何在 Perl 中使用 ImageMagick？

Question

我正在尝试让与“identify image.png”等效的命令行在 Perl 中工作。

你打算怎么做？

谢谢。

更新:
我有以下代码

        use Image::Magick;      
    $image = Image::Magick->new;
    open(IMAGE, 'image.gif');
    $image->Identify(file => \*IMAGE);
    close(IMAGE);   

但得到以下错误:

Can't locate Image/Magick.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.1 /usr/local/share/perl/5.10.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .)

Answer 1

有一个Identify PerlMagick 的方法方法为 this documentation说。

其参数为:file=>file, features=>distance, unique=>{True, False}
所以它可以像这样使用( 测试 ):

use Image::Magick;

$image = Image::Magick->new;
open(IMAGE, 'image.gif');
$image->Read(file => \*IMAGE);
close(IMAGE);
$image->Identify();

如果您只需要尺寸:

use Image::Magick;

$image = Image::Magick->new;
my ($width, $height, $size, $format) = $image->Ping('image.gif');