Как вы можете получить метаданные изображения с помощью модуля Perl?

Question

Я установил следующий компонент от MacPorts:

p5-image-info @1.16 (perl, graphics)
Extract meta information from image files

В на его сайте сказано, что вы можете использовать его

   Usage is something like this:

   use Image::Info qw(image_info);

   @info = image_info("filename");
   $refto_hash_describing_1st_image = $info[0];
   $refto_hash_describing_2nd_image = $info[1];

Тем не менее, я бегу неудачно

$perl  use Image::Info qw(image_info);
-bash: syntax error near unexpected token `('
$

Как получить метаданные изображения с помощью модуля Perl?

Answer 1

Описанный синтаксис: как вы будете использовать его в скрипте Perl, , а не , как вы можете использовать его как одну строку из оболочки.

Поместите это в файл .pl (например, "image_info.pl"):

#!/usr/bin/perl -w
use strict;
use Image::Info qw[image_info];
use Data::Dumper;

while (@ARGV) {
  print Dumper(image_info(shift));
}

И запусти его так:

$ ./image_info.pl file.jpg

и наслаждайтесь массами информации, которую он вам скажет ...

Answer 2

Чтение http://perldoc.perl.org/perlrun.html