Hi List,
I would like to write a script that renames image files based on the
date and time they where taken (not the creation date). I learned that
this data is stored in the EXIF meta data, and installed the Image::Info
module that should be able to read that data. This is how it should
work:
use Image::Info qw(image_info dim);
my $info = image_info("image.jpg");
if (my $error = $info->{error}) {
die "Can't parse image info: $error\n";
}
my $color = $info->{color_type};
my($w, $h) = dim($info);
I have worked with modules before (CGI.pm) but I can't really make sense
of the qw-syntax in line 1. Anyway, when I run the sript, I get an
error:
Can't parse image info: Can't locate IO/String.pm in @INC (@INC
contains: /System/Library/Perl/darwin /System/Library/Perl
/Library/Perl/darwin /Library/Perl /Library/Perl
/Network/Library/Perl/darwin /Network/Library/Perl /Network/Library/Perl
.) at (eval 2) line 2.
Has anybody in the list worked with image::Info before and can give me a
hint why that is and what to do about it?
Thanks!
Ingo
