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