Question date fichier perl.

Bonjour à tous,

J'ai une petite question en perl.

Je fait la copie d'un fichier txt d'un répertoire à un autre, mais je voudrais au moment de la copie, rajouter la date à la suite du fichier copié.
Par exemple, je souhaite copier le fichier test.txt, je voudrais qu'une fois copié, il se nomme test_20_11_2014.txt. Il prend la date où il effectue la copie.

Merci d'avance.

Je te conseille l'usage de la fonction strftime (du module standard POSIX) qui te permet de formater ton nom de fichier destinataire avec des données relative à une date (donnée par la function localtime)

Exemple :

Code:

---

1 2	perl -MPOSIX=strftime -E 'say strftime "test_%d_%m_%Y", localtime' test_20_11_2014

---

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();

my $fichier1 = "C:.../toto.txt";
my $fichier2 = "C:.../toto_$localtime.txt";



rename ($fichier1, $fichier2);

J'ai utitlisé ceci, mais sans effet.

Alors essaye ceci :

Code:

---

1 2 3 4 5

user POSIX qw(strftime); my $fichier1 = "C:.../toto.txt"; my $fichier2 = strftime "C:.../toto_%d_%m_%Y.txt", localtime();   rename ($fichier1, $fichier2);

---

Citation:

---

Envoyé par tifil

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();

my $fichier1 = "C:.../toto.txt";
my $fichier2 = "C:.../toto_$localtime.txt";



rename ($fichier1, $fichier2);

J'ai utitlisé ceci, mais sans effet.

---

Tu utilises une variable $localtime que tu n'as pas initialisée. Si tu avais utilisé les pragmas:

Code:

---

1 2 3

use strict; use warnings;

---

le compilateur t'aurait prévenu de cette erreur. Il faut utiliser ces deux pragmas pour toute programme de plus d'une ligne.

J'ai essayé mais toujours pas de modif.

Bonjour,
Philou67430 a juste fait une faute de frappe :

Code:

---

user POSIX qw(strftime);

---

Son code fonctionne parfaitement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

#!/usr/bin/perl use strict; use warnings; use utf8;   use POSIX qw(strftime);   my $fichier1 = "E://_DEV//_Essais//Fichier_1.txt"; my $fichier2 = strftime "E://_DEV//_Essais//Fichier_1_%d_%m_%Y.txt", localtime();   rename ($fichier1, $fichier2);

---

N'oublie pas :
1 - entre doubles quottes les variables sont évaluées et il est nécessaire d'échapper les caractères "spéciaux" avec un / donc "E://_DEV//_Essais//Fichier_1_%d_%m_%Y.txt" OK
2 - entre simples quottes les variables ne sont pas évaluées donc 'E:/_DEV/_Essais/Fichier_1_%d_%m_%Y.txt' NOT OK

De plus lorsque tu écris :

Citation:

---

J'ai essayé mais toujours pas de modif.

---

Précise ce que tu as fait, en collant ton code et/ou en ajoutant des images, quitte à les effacer rapidement...
Ça nous aidera aussi un peu :D
Exemple (j'ai un peu triché pour ne pas perdre mon fichier Fichier_1.txt) :

Citation:

---

Envoyé par dmganges

Bonjour,
Philou67430 a juste fait une faute de frappe :

Code:

---

user POSIX qw(strftime);

---

---

Ooopss ... Merci dmganges ;)