如何在Perl中使用ImageMagick？

我试图让命令行等效于“identification image.png”在Perl中工作

你是怎么做的

谢谢

更新： 我有以下代码

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

但会出现以下错误：

在@INC中找不到Image/Magick.pm（@INC-contains:/etc/perl/usr/local/lib/perl/5.10.1/usr/local/share/perl/5.10.1/usr/lib/perl5/usr/lib/perl/5.10/usr/share/perl/5.10/usr/local/lib/site_perl。）

---

如前所述，PerlMagick有一种

识别

方法

它的参数是：

file=>file，features=>distance，unique=>{True，False}

所以它可以像这样使用（测试过的）：

如果只需要尺寸标注：

use Image::Magick;

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

---

我只是无法通过Image.pl第4行的包“Image:：Magick”（也许您忘记加载“Image:：Magick”？）找到对象方法“new”。您加载模块了吗<代码>使用图像：：MagickYeah刚刚更新了我的帖子以反映这一点，但是我在编辑的帖子中发现了上面显示的错误，您需要安装ImageMagick perl模块。以下是说明：太棒了，谢谢。现在唯一的问题是当我打印$image时，我得到的只是“image:：Magick=ARRAY（0x8bac968）”

use Image::Magick;

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