Code: Select all
identify -format "%f %[IPTC:2:25]" *.jpg
Code: Select all
$image->Get(xxx)
thanks
Kevin
Code: Select all
identify -format "%f %[IPTC:2:25]" *.jpg
Code: Select all
$image->Get(xxx)
Code: Select all
use Image::Magick;
foreach my $file (<@ARGV>)
{
my $image = new Image::Magick;
$image->Read($file);
my @keywords = split ';', $image->Get('IPTC:2:25');
print "$file: @keywords\n";
}