ケータイ写真から撮影日付を取得

携帯で撮った写真を一括でPCにデータコピーして、携帯から画像を消す。
そんな事を過去数回繰り返してたんですが、ファイル名がHOGE_001.JPG みたいに連番でなっていて、しかもで同じファイル名が現れたりしちゃって、気付いたら HOGE_001.JPG(2) とかなってた。

ということで、イラっとしてファイル名を撮影日付に変換するスクリプトをワンライナーでさくっと書いた。
そのままだと見づらいので、MO=Deparseして整形したのを置いておく。

use File::Copy;
use Image::ExifTool;
use File::Glob ();
my @p = glob('./*.JPG');
for $_ (@p) {
    my $it = 'Image::ExifTool'->new;
    $it->ImageInfo($_);
    my $dt = $it->GetValue('DateTimeOriginal');
    $dt =~ s/[: ]//g;
    $dt = $dt . '.jpg';
    print $_ . ' -> ' . $dt ."\n";
    move($_, $dt);
}

perlで携帯jpgのexif情報取得するには、Image::ExifToolが一般的みたい。