Salut,


#! /usr/bin/perl -w

use strict;

my ($jour,$mois,$annee)=(localtime)[3,4,5];

my $j = sprintf("%02d",$jour);
my $m = sprintf("%02d",$mois+1);
my $a = $annee+1900;

#my @fic = glob "/home/ovh/sauveDB/*.sql"; pas besoin

foreach (glob "/home/ovh/sauveDB/*.sql"){
(my $new_name = $_)=~ s/^ # début de chaine
(.*) # tout caractère
(?=\.sql)
# test avant .sql (ne consomme pas de texte)
/$1_$a-$m-$j/x;
rename $_,$new_name;
}