Category Archives: Perl

renommer des fichiers automatiquement

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.