使用Perl中的ImageMagick读取XMP数据

Question

我正在寻找一种使用ImageMagick从图像文件中提取XMP数据的方法。

我知道如何使用命令行提取数据：

convert -ping my_image.jpg xmp:xmp-profile.xml

但是我需要一种使用ImageMagick Perl API的方法。

如何做到这一点？有什么建议吗

Answer 1

您可以使用image:：Magick perl模块提取图像信息。

 use Image::Magick;
 my $im = Image::Magick->new();
 $im->Read('/path/to/image');
 print $im->Identify();

或者，如果您不受图像魔法的约束，您可以使用图像：：ExifTool；

my $exif_tool = Image::ExifTool->new();
my $info = $exif_tool->ImageInfo('/path/to/image'); #retrieves all image data
# my $info = $exif_tool->ImageInfo('/path/to/image', ['xmp:*']); retrieves only xmp
use Data::Dumper;
warn Dumper $info;

Answer 2

$code = `convert -ping my_image.jpg xmp:xmp-profile.xml`;