如何通过 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 脚本中使用它，而不是如何将它作为 shell 中的单行使用。

将其放入 .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