Discussion :

[maxouff]

Bonjour,

J'essaie de copier des fichiers (.pl) d'un répertoire à un autre, c'est deux répertoires se trouvent au même niveau dans le répertoire contenant le script.
Le soucis c'est que la copie ne marche pas.
voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use File::Copy;
 
my $oldDir ='./prod';
my $newDir = './uat';
 
opendir DIR, $oldDir;     # . is the current directory
 
while ( $filename = readdir(DIR) ) {
    if ($filename =~ m/.*(.pl)/){
		my $newFile = $newDir.'/'.$filename;
		print $filename.' copie dans '.$newDir, "\n";
		copy($filename,$newFile) or die "Copy failed: $!";
 
	}
}
 
closedir DIR;

ce qui est bizarre c'est quand quand le fichiers se trouvent dans le répertoire supérieur ( celui contenant le script ) et que je fais un openDir sur '.' ça marche. alors que dans mon cas j'arrive bien à voir les fichiers (.pl) mais pas à les copier.

Si quelqu'un à une idée, merci d'avance.

[Jasmine80]

Quel est le message contenu dans $!?

Redonne le nom complet vers ton fichier

Code :

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

copy($oldDir.'/'.$filename,$newFile) or die "Copy failed: $!";

[maxouff]

effectivement ça marche mieux merci beaucoup

bonne journée

[tiboo]

Salut,

peut être je me trompe, mais le répertoire courant est le répertoire d'exécution du script.

Quand tu fais un copy($filename, $newFile), le $filename ne contient que le nom du fichier, pas le chemin complet du fichier.

je pense que tu si fais un chdir($oldDir ) avant d elire le contenu du répertoire cela fonctionnera

Cela dit moi je passerai par un glob()

[Jasmine80]

Oui, je dois aussi chaque fois bien faire attention à ce que j'utilise car glob() récupère tout le chemin alors que readdir() ne récupère que le nom du fichier. Quand le répertoire contient beaucoup de données, il est préférable de faire un readdir.