在 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();

或者如果你不受图像魔法的约束，你可以使用 Image::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`;