Discussion :

[tifil]

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.

[Philou67430]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[Philou67430]

Alors essaye ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lolo78]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[tifil]

J'ai essayé mais toujours pas de modif.

[dmganges]

Bonjour,
Philou67430 a juste fait une faute de frappe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

user POSIX qw(strftime);

Son code fonctionne parfaitement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
Exemple (j'ai un peu triché pour ne pas perdre mon fichier Fichier_1.txt) :

[Philou67430]

Bonjour,
Philou67430 a juste fait une faute de frappe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

user POSIX qw(strftime);

Ooopss ... Merci dmganges