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