Ubuntu中文论坛

代码： 全选

☎ cat exif-filename.pl 
#!/usr/bin/perl

use File::Basename;
$dir=dirname $ARGV[0];
chdir $dir;

my @f=glob "*.JPG *.jpg";
foreach (@f){
my $DateTimeOriginal=`exif -t 0x9003 \'$_\'|grep "Value:"`;
chomp $DateTimeOriginal;
my @s=split " ", $DateTimeOriginal;
$s[1]=~s/:/-/g;
$n="$s[1]_$s[2]";

$nn=$n;
my $loop=0;
while(-e "$nn.jpg"){
$nn="$n_$loop";
$loop++;
}
$n=$nn;

print "$_ => $n.jpg\n";
rename "$_","$n.jpg";
}

代码： 全选

#!/bin/bash
cd "${*%/*}"
IFS=$'\n' array=(`identify -format "%f@%[exif:DateTimeOriginal]\n" *.jp*g`)
for x in ${array[@]}; do
	fn="${x%@*}"
	exif="${x##*@}"
	exif="${exif//:/-}"
	mv "$fn" "${exif// /_}.${fn##*.}"
done