How do you use ImageMagick in Perl?

Question

I am trying to get the command line equivalent of "ident image.png" to work in Perl.

How do you do this?

Thanks.

Update: I have the following code

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

But get the following error:

Cannot find 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

There is an Identify method method for PerlMagick as in this documentation .

Its parameters: file=>file, features=>distance, unique=>{True, False}

Thus, it can be used as follows ( verified ):

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

If you need only sizes:

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