Bonjour
J'ai un script perl qui list un fichier plat à partir d'un dossier spécifique. Je veux qu'à chaque fin de lecture que le fichier lu soit déplacé dans un autre dossier. Mais celà ne marche pas. Voici le code que j'utilise
et pourtant avce le print il me dit bien qu'il l'a modifié.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 my $nouveauNomFichier = "OLD_".$fichier; rename($dossierStructureAnalytique."/".$fichier,"cagreg/SA_VERSION/".$nouveauNomFichier); print ($dossierStructureAnalytique."/".$fichier ."renommé en ".$dossierStructureAnalytique."/".$nouveauNomFichier."<br>\n");
Partager