你如何在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

没有为PerlMagick的Identify方法方法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');