2014-08-17 exiftoolを使ってff11のスクリーンショットにexifのCreate Dateを書く #!/usr/bin/perl while($tmp=){ if($tmp=~/...(..)(..)(..)(..)(..)(..)..jpg\n/){ print "exiftool -CreateDate='20$1:$2:$3 $4:$5:$6' $tmp"; }else{ print "error\n"; } }