ExifTool Perl库模块:如何从主题值中分离关键字

时间:2017-09-04 12:10:57

标签: perl exiftool

我正在使用ExifToolVersion:9.13将pdf文件的元信息读出到formfields,用户可以在其中编辑值。 使用第二个perl脚本,我将这些更改的值写回文件。

除了例外,主题值显示在主题标签中的关键字标签和关键字值中,但是我将新值写入每个标签。

$exifTool->SetNewValue($tag[$i], \@keywords, Replace => 1);   
$exifTool->SetNewValue($tag[$i], $file_beschreibung, Replace => 1);   

$exifTool->SetNewValue($data[$i]=>\@keywords, Group0 => 'PDF');
$exifTool->SetNewValue($data[$i]=>$file_beschreibung, Group0 => 'PDF');

我尝试将一个空值写入XMP标记,但这不起作用

$exifTool->SetNewValue($data[$i]=>$leer, Group0 => 'XMP');

有没有办法避免两个值的连接?

1 个答案:

答案 0 :(得分:0)

我现在发现,我必须清除所有XMP-Tags

my @data = ("Author","Keywords","ModifyDate","Rights","Title","Subject"); 
my $elemente = @data;

for ($i=0; $i<$elemente; $i++)
{
    if ($i==1)
 {
    if (my $tagname =~ m/^XMP-.*:$data[$i]/)
    {
    $exifTool->SetNewValue($tagname=>'', Group => 'XMP');
    }
    $exifTool->SetNewValue($data[$i]=>\@keywords, Group => 'PDF');
 }
 if ($i==5)
 {
    my $tagname = "XMP-dc:".$data[$i];
    $exifTool->SetNewValue($tagname=>'', Group => 'XMP');
    $exifTool->SetNewValue($data[$i]=>$file_beschreibung, Group => 'PDF'); 
 }
}

这很好用。谢谢你的帮助!