Exifデータの一覧をPerlモジュールのImage::ExifToolで出力
PerlモジュールのImage::ExifToolを使用して、読み込んだ画像のExifデータを一覧で出力しました。)
#!/opt/local/bin/perl
use strict;
use warnings;
use Image::ExifTool;
print "Content-type: text/plan; charset=utf-8\n\n";
my $image_exif_tool = new Image::ExifTool;
$image_exif_tool = $image_exif_tool->ImageInfo("sample.png");
for(sort keys %$image_exif_tool){
print+($_." : ".$image_exif_tool->{$_}),"\n";
}
exit;
サンプルコードです。読み込んだ画像からExifデータを一覧で出力しました。