http://www.sno.phy.queensu.ca/~phil/exiftool/
exiftool(-k).exe to exiftool.exe and saving it in c:\Program Files (x86)\exiftool. c:\Program Files (x86)\exiftool to %PATH%%Image::ExifTool::UserDefined = (
'Image::ExifTool::Composite' => {
UniqueKeywords => {
Require => 'Keywords',
ValueConv => q{
my @list = ref $val eq 'ARRAY' ? @$val : $val;
my ($item, %found, @rtn);
foreach $item (@list) {
$item =~ s/^\s+//; # remove leading white space
push @rtn, $item unless $found{$item};
$found{$item} = 1;
}
return \@rtn;
},
},
},
);
exiftool "-Keywords+<RegionName" DIR
exiftool "-Keywords+<${filename;$_=substr($_,0,4);s/\..*?$//}" DIR
exiftool "-Keywords<UniqueKeywords" DIR
-v0 (verbose) as parameter to see processed file