Rename des fichiers avec la date sous Linux 2

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;
}

Re

Merci lami20j

tout marche super

@+

laurent

Re,

de rien.

Petite question. As-tu compris la pourquoi ton regex ne te satisfaisait pas?

s/(\d+)(\.sql)/$1_$a-$m-$j$2/

s/^      # début de chaine
    (.*) # tout caractère 
    (?=\.sql)
     # test avant .sql (ne consomme pas de texte)
 /$1_$a-$m-$j/x;

Re,

voilà encore un version dans laquelle on n'a pas des références arrières. Un seul test avant pour tester l'extension fait l'affaire.

#! /usr/bin/perl -w

use strict;

foreach (glob "/home/ovh/sauveDB/*.sql"){
  (my $new_name = $_)=~ s/(?=\.sql)/'_' . `date +%F`/e;
  $new_name =~ s/\n//; # le résultat de date contient un \n
  rename $_,$new_name;
}