Supprime les accents, les espaces, et reformate la numérotation des photos.
#!/usr/bin/perl $dir=$ARGV[0]; print "dir=$dirn"; opendir(DIR, $dir) || die "can't opendir $dir: $!"; @files = readdir(DIR); for my $file (@files) { if ( $file ne "." or $file ne ".." ) { print "file=$filen"; if ($file =~ m/17-06-2006 ((.*))s*(.*)./g) { $num=$1; $nom=$2; $num="00$num" if length $num == 1; $num="0$num" if length $num == 2; $nom =~ s/ /_/g; $nom =~ s/é/e/g; $nom =~ s/è/e/g; print "num=$num, nom=$nomn"; rename $dir."/".$file,$dir."/"."PICT".$num."_".$nom.".JPG" || die "erreur $dir/$file : $!"; #print $dir."/"."PICT".$num."_".$nom.".JPGn"; } } } closedir DIR;
La commande rename du bash sait aussi faire beaucoup de manipulation de ce genre.