Bonsoir à tous,
ça m'étonnerait si on n'avait pas la version sed de jipicy.
Voilà une version perl.
#! /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/lamitest/test/*.sql";
foreach (@fic){
(my $new_name = $_)=~ s/(\d+)(\.sql)/$1-$a-$m-$j$2/;
rename $_,$new_name;
Exécution:
[lamitest@localhost ~]$ ls -l test/
total 0
-rw-rw-r-- 1 lamitest lamitest 0 jan 17 20:03 100.sql
-rw-rw-r-- 1 lamitest lamitest 0 jan 17 20:02 10.sql
-rw-rw-r-- 1 lamitest lamitest 0 jan 17 20:02 1.sql
-rw-rw-r-- 1 lamitest lamitest 0 jan 17 20:02 2.sql
[lamitest@localhost ~]$ perl rename_date.pl
[lamitest@localhost ~]$ ls -l test/
total 0
-rw-rw-r-- 1 lamitest lamitest 0 jan 17 20:03 100-2006-01-17.sql
-rw-rw-r-- 1 lamitest lamitest 0 jan 17 20:02 10-2006-01-17.sql
-rw-rw-r-- 1 lamitest lamitest 0 jan 17 20:02 1-2006-01-17.sql
-rw-rw-r-- 1 lamitest lamitest 0 jan 17 20:02 2-2006-01-17.sql
a+
lami20j


