Discussion :

[Chicard]

Salut,

je cherche à renommer un fichier.

Par exemple de test je veux passe à test_06110814:03:33

Sous linux en faisant cela sur la console en direct je fais mv test test_`date +%d%m%y%T` j'obtiens mon résultat.

J'essais de le faire dans Perl avec la même commande, en mettant la commande dans une variable et en mettant des \ devant les % avec des guillements j'obtients toujours le même message :

Code :

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

1
2
3
4
 
Backticks found where operator expected at ./renom line 4, near "test_`date +"\%d\%m\%y\%T"`"
syntax error at ./renom line 4, near "test_`date +"\%d\%m\%y\%T"`"
Execution of ./renom aborted due to compilation errors.

Une idée pour solutionner mon petit souci.

[djibril]

quel est ton code exact?

[Chicard]

voila le code:

Code :

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

1
2
3
4
5
6
 
   #! /usr/bin/perl
 
 
   my $essai = mv test test_`date +"\%d\%m\%y\%T"`;
   printf $essai;

j'ai essayé le code sans le "\%....." et cela ne fonctionne pas non plus.

[djibril]

Code :

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

rename ( "test", "test_".`date +%d%m%y%T`);

[Chicard]

C'est exactement ce qu'il me faut. Merci

[Jedai]

Attention, ce code ne fonctionne pas à travers les frontières des systèmes de fichiers, rename() est une primitive qui utilise directement l'appel système correspondant, en tant que tel, je ne recommanderais pas son utilisation dans le cas général (s'il s'agit simplement de renommer un fichier en restant dans le même dossier par exemple, c'est ok).

L'équivalent strict de mv est la fonction move() du module File::Copy (module distribué en standardd avec Perl depuis la 5.2, n'hésitez donc pas à l'utiliser) qui essaiera rename() puis fera une copie et suppression de l'original si rename() échoue.

--
Jedaï