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.