2014-08-17から1日間の記事一覧
#!/usr/bin/perl while($tmp=){ if($tmp=~/...(..)(..)(..)(..)(..)(..)..jpg\n/){ print "exiftool -CreateDate='20$1:$2:$3 $4:$5:$6' $tmp"; }else{ print "error\n"; } }
#!/usr/bin/perl while($tmp=){ if($tmp=~/...(..)(..)(..)(..)(..)(..)..jpg\n/){ print "exiftool -CreateDate='20$1:$2:$3 $4:$5:$6' $tmp"; }else{ print "error\n"; } }