|
Hello Phil,
It works.
I have changed one row:
my $n = int(@v / 2 - 2);
%Image::ExifTool::UserDefined = (
'Image::ExifTool::Composite' => {
MyKeywordsPipe => {
Require => 'IPTC:Keywords',
ValueConv => q{
my @v = ref $val ? @$val : $val;
my $n = int(@v / 2 - 2);
$v[$n] = "| $v[$n]";
return \@v;
},
},
MySubjectPipe => {
Require => 'XMP:Subject',
ValueConv => q{
my @v = ref $val ? @$val : $val;
my $n = int(@v / 2 - 2);
$v[$n] = "| $v[$n]";
return \@v;
},
},
},
);
1; # end
IPTC and XMP show 1 pipe.
One problem that I have, when I generate a text file
(exiftool -k -G1 -H -a -u -s -w txt *.jpg)
I see that there are new tags:
[Composite] - MyKeywordsPipe: Ziegelstein, Zierde, | | adornment, architecture
[Composite] - MySubjectPipe: Ziegelstein, Zierde, | | adornment, architecture
Is there a way to delete these entries?
Thank you very much!!!
|
