Kawaninon.com

写真やサンプルプログラムなど、日々の気になった出来事をメモしてる個人的なブログです。

日本語に指定したExifデータの一覧をPerlモジュールのImage::ExifToolで出力

PerlモジュールのImage::ExifToolを使用して、読み込んだ画像のExifデータを日本語の一覧で出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
use Image::ExifTool;
 
my $image_exif_tool = new Image::ExifTool;
$image_exif_tool->Options(Lang =>"ja");
$image_exif_tool->ImageInfo("sample.jpg");
for(sort keys %$image_exif_tool){
    print+($_." : ".$image_exif_tool->{$_}),"\n";
}
 
exit;

サンプルコードと出力結果です。ExifToolのオプションで日本語を指定し、読み込んだ画像のExifを一覧で出力しました。

おすすめリンク

関連リンク

スポンサーリンク

カテゴリ

フィード

QRコード

QR Code