Bonjour

Tiens, je butte aujourd'hui !
Je dispose d'un ensemble de fichiers compilé Java, c'est à dire des fichier class. Je veux pouvoir les copier avec un script Perl. Seulement, certains de ces fichiers class ont un $ à l'intérieur de leur nom (Toto$1.class par exemple). J'ai écrit ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
if($file=~/class/){
			chomp $file;
			#print $file."\n";
			my $newfile = $file;
			$newfile =~ s/\/home\/gldavid\/Desktop\/JAVA/\/home\/gldavid\/TOTO/;
			$newfile =~ s/\$/\\\$/g;
			#print $newfile."\n";
			my $cmd = "cp ".$file." ".$newfile;
			system($cmd);
		}
L'effet étant de pouvoir neutraliser le dollar contenu dans le nom du fichier. Seulement, ce n'est pas suffisant et pas mal de fichiers de ce style ne peuvent être copiés. Comment faire pour améliorer ma copie sans erreurs ?

Merci d'avance.

@++

GLDavid, apparemment pas réveillé.