Legacy ImageMagick Discussions Archive

This seems to work: 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"; } The split() is needed because multiple keywords are separated by semicolons (same as ide...

I have a set of images in a folder, and identify -format "%f %[IPTC:2:25]" *.jpg shows me the tags that I put into them using Picasa. I now want to extract the tags in a Perl program. I know I could use Image::IPTC, but I don't want to double-handle the file. I was hoping I could use $imag...

I was close with my guess about calculating it from the stddev for the separate channels. It seems that if I square each stddev, add them together, divide by the number of channels, then take the square root, then I get something close to the overall stddev reported by identify. This sorta makes sen...

Hmmmm... looks like my use of "boring" wasn't as helpful as I'd intended. Here's what I'm really trying to do... A photographer at an event such as motorcar rallying, BMX, horse cross-country, showjumping etc takes groups of pictures of each competitor as they pass (these are "interes...

I want to separate "boring" photos from "interesting" ones in a folder. By "boring" I mean pictures of the sky, the ground, a wall, the inside of the lens cap and so on. I tried using identify -format "%f %k\n" *.jpg to get the number of unique colours in each...

I've been experimenting with commandline ImageMagick, and identify -format "%[fx:standard_deviation]" file.jpg tells me the value I'm interested in. However, I can't see how to get the same info from PerlMagick. img->Fx(expression=>'standard_deviation') doesn't do it, and img->Statistics()...