Как вы используете ImageMagick в Perl?

Question

Я пытаюсь заставить командную строку, эквивалентную «identifier image.png», работать в Perl.

Как ты это делаешь?

Спасибо.

Обновление: У меня есть следующий код

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

Но получите следующую ошибку:

Невозможно найти Image / Magick.pm в @INC (@INC содержит: / 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, так как эта документация говорит.

Его параметры: 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');