Image::EXIF - Perl extension for exif library
use Image::EXIF;
use Data::Dumper;
my $exif = Image::EXIF->new($file_name);
# or:
my $exif = Image::EXIF->new;
$exif->file_name($file_name);
my $image_info = $exif->get_image_info(); # hash reference
my $camera_info = $exif->get_camera_info(); # hash reference
my $other_info = $exif->get_other_info(); # hash reference
my $point_shoot_info = $exif->get_point_shoot_info(); # hash reference
my $unknown_info = $exif->get_unknown_info(); # hash reference
my $all_info = $exif->get_all_info(); # hash reference
print Dumper($all_info);
Perl package Image::EXIF based on exiftags by Eric M. Johnston:
http://johnst.org/sw/exiftags/.
Please report bugs at either of the following locations:
exiftags.
|