Dear Julio Otuyama,
I am glad your script is working right now.
I will try to incorporate some documentation
changes in next release, as you suggest.
Just some final comments.
Show quoted text> ... I couldn't find documentation about what
> segment I should use. I am using the first
> (there is only one).
>
> use Image::MetaData::JPEG;
> my $image = new Image::MetaData::JPEG('image.jpg');
> my $segment = $image->retrieve_app1_Exif_segment(0); # why the first?
> my $image_data = $segment->get_Exif_data('IMAGE_DATA', 'TEXTUAL');
> print $image_data->{DateTimeOriginal}->[0];
The "retrieve_app1_Exif_Segment" method returns a
reference to the first Exif Segment in the picture
file, if its index is undefined. So, you could as
well write $image->retrieve_app1_Exif_segment().
Indeed, well formed Exif files have only one APP1
Exif segment, so this is a safe choice; I included
the possibility to use an index just for exploring
non-standard files, but this is an "expert" option.
You can safely use retrieve_app1_Exif_segment(), i.e.,
without arguments.
Best regards,
Stefano Bettelli