我是PERL的新手,甚至是ExifTool的新手,因此可能缺少一些基本知识。
目标是从照片文件读取XMP字段。通过查看ExifTool网站和CPAN上的exiftool文档,我能够读取带标签的jpeg和XMP sidecar文件,两者都没有问题。
问题是,当我从原始文件(显然没有自定义字段)中读取数据时,未初始化的值会导致错误。这是意料之中的。
因此,我希望有这样的代码:“如果您从原始文件中读取了一个字段/标签,但它不存在,请查看关联的XMP文件,如果失败,则返回一个空白字符串。” < / p>
因此,我尝试打开ExifTool的第二个实例,例如:
my $exifInfo = ImageInfo($filePath);
转到
my $exifInfoXMP = ImageInfo($filePathXMP);
但是那总是失败。如果我直接从一开始就阅读XMP,它就可以正常工作,因此我得到的印象是我无法同时阅读两个ExifTool结构(这是不对的;我必须是这里的错误) 。下面的代码有效,但是我无法“交织”两个文件上的条件。我必须先处理原始数据,然后使用XMP的新处理程序运行第二遍。知道PERL的效率,我的方法不可能是一个好的方法(即使它能完成工作)。
特别是,有一行使我感到困惑。如果我删除它,则没有任何效果。 (应该标记清楚)。
$filePath =~ s/$photoExtensions$/.XMP/i;
这行基本操作与从一开始就读取XMP一样(不是我的理想解决方案)。
有人知道我要去哪里吗?
谢谢
保罗
标题[已编辑,显示所有选项;已显示所有用于问题的内容]
#!/usr/bin/perl
# load standard packages
use strict;
use warnings;
use Data::Dumper;
use File::Find;
no warnings 'File::Find';
use Image::ExifTool ':Public';
# define proxy for ExifTool
my $exifTool = new Image::ExifTool;
my $exifToolXMP = new Image::ExifTool;
# turn on immediate updates
$|=1;
# common extensions that I want to recognize
my $photoExtensions = "\.(jpg|crw|cr2|cr3|rw2|orf|raw|nef|arw|dng)";
my $imageExtensions = "\.(tiff|tif|psd|png|eps|hdr|exr|svg|gif|afphoto|pdf)";
my $videoExtensions = "\.(flv|vob|ogv|avi|mts|m2ts|mov|qt|wmv|mp4|m4p|m4v|svi|3gp|3g2)";
my $audioExtensions = "\.(aiff|aac|wav|mp3|m4a|m4p|ogg|wma)";
my $appFileExtensions = "\.(on1|cos|cof)";
my $GPSFileExtensions = "\.(gpx|kml|kmz|log)";
# start main program
main();
有问题的例程
sub listKeywords {
print "Reads and displays file information from certain tags (typically set in Photomechanic):\n";
print "\t1. Subject\n";
print "\t2. Hierarchical Subject\n";
print "\t3. Supplemental Categories\n";
print "\t4. Label Name 1\n";
print "\t5. Label Name 2\n";
print "\t6. Label Name 3\n";
print "\t7. Label Name 4\n\n";
print "List Keywords ---\n\tEnter file name (with path) --> ";
my $filePath = <STDIN>;
chomp $filePath;
$filePath =~ s/\\//g;
$filePath =~ s/\s+$//;
########################################################
# COMMENT OUT THE FOLLOWING LINE AND NOTHING WORKS;
# $filePathXMP should be defined anyway, which suggests to
# me that the second invocation of ImageInfo doesn't actually occur.
# But I don't understand why.
$filePath =~ s/$photoExtensions$/.XMP/i;
print "\n\n";
my $filePathXMP = $filePath;
$filePathXMP =~ s/$photoExtensions$/.XMP/i; # TO FIX: filename may not have uppercase extension
# Get Exif information from image file
my $exifInfo = $exifTool->ImageInfo($filePath);
# my $exifInfoXMP = $exifToolXMP->ImageInfo($filePath =~ s/$photoExtensions$/.XMP/gi);
print "XMP Sidecar: \[$filePathXMP\]\n\n";
########################################################
# Get Specific Tag Value
my $hierarchicalSubject = $exifTool->GetValue('HierarchicalSubject');
my $subject = $exifTool->GetValue('Subject');
my $supplementalCategories = $exifTool->GetValue('SupplementalCategories');
my $labelName1 = $exifTool->GetValue('LabelName1');
my $labelName2 = $exifTool->GetValue('LabelName2');
my $labelName3 = $exifTool->GetValue('LabelName3');
my $labelName4 = $exifTool->GetValue('LabelName4');
my $exifInfo = ImageInfo($filePathXMP);
if (not defined $hierarchicalSubject) {$hierarchicalSubject = $exifTool->GetValue('HierarchicalSubject');}
if (not defined $hierarchicalSubject) {$hierarchicalSubject = "";}
if (not defined $subject) {$subject = $exifTool->GetValue('Subject');}
if (not defined $subject) {$subject = "";}
if (not defined $supplementalCategories) {$supplementalCategories = $exifTool->GetValue('SupplementalCategories');}
if (not defined $supplementalCategories) {$supplementalCategories = "";}
if (not defined $labelName1) {$labelName1 = $exifTool->GetValue('LabelName1');}
if (not defined $labelName1) {$labelName1 = "";}
if (not defined $labelName2) {$labelName2 = $exifTool->GetValue('LabelName2');}
if (not defined $labelName2) {$labelName2 = "";}
if (not defined $labelName3) {$labelName3 = $exifTool->GetValue('LabelName3');}
if (not defined $labelName3) {$labelName3 = "";}
if (not defined $labelName4) {$labelName4 = $exifTool->GetValue('LabelName4');}
if (not defined $labelName4) {$labelName4 = "";}
print "Subject:\n------------------------------\n$subject\n\n";
print "Hierarchical Subject:\n------------------------------\n$hierarchicalSubject\n\n";
print "Supplemental Categories:\n------------------------------\n$supplementalCategories\n\n";
print "Label Name 1:\n------------------------------\n$labelName1\n\n";
print "Label Name 2:\n------------------------------\n$labelName2\n\n";
print "Label Name 3:\n------------------------------\n$labelName3\n\n";
print "Label Name 4:\n------------------------------\n$labelName4\n\n";
}
答案 0 :(得分:0)
由于您的代码不完整,我不得不问:您确定要用以下几行启动脚本吗?
use strict;
use warnings;
这两行不是 烦扰您,它们将保护您免受可能在代码中犯的简单错误的影响。
恕我直言,sub listKeywords()
的真正问题在于以下几行:
my $exifInfo = ImageInfo($filePathXMP);
这里有两个问题:
$exifInfo
。我认为您打算写的是以下行:
my $exifInfoXMP = $exifToolXMP->ImageInfo($filePathXMP);