no save
Assistance
Achat
News

Forum | Linux/Unix
renommer des fichiers avec la date sous linux
lami20j, le mar. 17 janv. 2006 à 19:59:50
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
Précédentbaborge
janv. 06
jipicy
janv. 06
Suivant
REPONSES
jipicy
janv. 06
baborge
janv. 06
[Dal]
janv. 06
baborge
janv. 06
lami20j
janv. 06
jipicy
janv. 06
lami20j
janv. 06
lami20j
janv. 06
jipicy
janv. 06
baborge
janv. 06
Version Web
Réalisé par RedShift
no save