とりあえず1つ変更する分です。 沢山変更するのは、foreachなりなんなりで回せばよいでしょう。 use strict; use warnings; use 5.010; use Time::Local; # 以下はデフォでは入ってないので、CPANなりppmなりで入れる。 use Image::ExifTool; #------------------------------------------------------------ my $file = "./hogehoge.jpg"; #------------------------------------------------------------ my $exifTool = new Image::ExifTool; # $exifInfo はExif情報ハッシュへのリファレンス my $exifInfo = $exi