rename images by exif date
I have a digital cam. I take pictures.
I don’t like a million DSCIM or DSCF or whatever files.
It’s inconvenient with so damn many.
It would be nice to rename all the images according to the date, as recorded inside the image exif data, that is, the sate stamp put in by your camera.
I hacked together this script to do that..
Use at your own peril. This is a hack.
Eventually I will release a refined version on cpan.
This scrip requires modules Image::ExifTool, LEOCHARRE::CLI ..
#!/usr/bin/perl -w
use strict;
use File::Copy;
use Cwd;
use LEOCHARRE::CLI;
# requires Image::ExifTool
#
my $o = gopts('m');
#yn('rename all jpg files by date in '.cwd().'?') or exit;
my $files = argv_aspaths();
(defined $files and scalar @$files )or die("no file arguments provided");
if ($o->{m}){
-d './noout' or mkdir './noout';
}
for (@$files){
$_=~/(.+)\/([^\/]+)$/ or next;
my $abs = $1;
my $filename = $2;
$filename=~/\.jpg$/i or next;
print STDERR "$abs - $filename \n" if DEBUG;
if ($filename=~/\d{4}[_\: ]+\d{2}[_\: ]+\d{2}/){
print STDERR "file $filename already named?\n" if DEBUG;
next;
}
my $out = `exiftool -DateTimeOriginal '$abs/$filename'`;
chomp $out;
unless( $out ){
print STDERR " no out? $filename\n" if DEBUG;
if ($o->{m}){
File::Copy::move("$abs/$filename", "$abs/noout/$filename");
}
next;
}
$out=~s/^Date\/Time Original[\:\s]*//i;
$out=~s/:| /_/g;
unless( $out=~/^[\d_]+$/ ){
print STDERR "dont like [$out]\n" if DEBUG;
next;
}
print STDERR "$filename : [$out]\n" if DEBUG;;
rename("$abs/$filename", "$abs/$out\_$filename");
print STDERR "moved to $abs/$out\_$filename\n" if DEBUG;
}
=head1 OPTION FLAGS
-m move to noout dir if cant get date
