Image::ExifTool で写真の EXIF 時刻をまとめてずらす - てっく煮ブログperlカメラの時刻を間違えて設定してしまったり、海外旅行に行ったのに時差を変更し忘れたりしたとき、まとめて写真の時刻を変更したくなる。便利なフリーソフトもあるんだろけど、スクリプトでまとめて処理したくなるのがプログラマ魂。今回は perl を使ってやってみた。EXIF の時間を書き換えるperl で EXIF を扱うには Image::ExifTool が定番なようだ。CPAN から拾ってきて、簡単なワンライナーを書いてみた。 perl -MImage::ExifTool -e "for $f(glob('*.jpg')){$e = new Image::ExifTool; $e->ImageInfo($f); $e->SetNewValue($_=>240, Shift=>1) for ('ModifyDate','DateTimeOriginal','CreateDate'); $e
