とりあえずやっつけ仕事. [環境設定] # perl -MCPAN -e shell (省略) CPAN>install Image::ExifTool (省略) CPAN>bye [作成スクリプト] #!/usr/bin/perl use Image::ExifTool; @Targets = @ARGV; $exifTool = new Image::ExifTool; foreach( @Targets ) { $f = $_; if ( -e $f ) { $info = $exifTool->ImageInfo( $f ); print "[ExIF of $f]\n": foreach( keys( %$info ) ) { $k = $_; $v = $exifTool->GetValue( $k ); printf( "%s -> %s\n", $k, $v ); } el