|
************* Yes - this is the right thing!! *************
************* Works like a machine!! *************
************* Thank you very much Phil. *************
For the keywords I took your code like this:
KeywordsDeutsch => {
Require => 'Keywords',
ValueConv => q{
my @list = ref $val ? @$val : ($val);
my $changed;
s/([^\|]*)\| .*/\1/ and $changed = 1 foreach @list;
return $changed ? \@list : undef;
},
},
KeywordsEnglish => {
Require => 'Keywords',
ValueConv => q{
my @vals;
foreach (ref $val eq 'ARRAY' ? @$val : $val) {
push @vals, $2 if /(^|\|)\s*\s+(.*?)\s*(\||$)/;
}
return @vals ? \@vals : undef;
},
},
No clue how it works in detail, but it does exactly what it should :)))
Hmm - but I have another question before I look on it more detailed:
Wouldn't it be possible with ExifTool to create own iptc-tags (caption, keywords, headline) for a second language? Of course this wouldn't be a standard but could help.
Have a good evening.
Greetings from
pixelpicker |
