Discussion :

[GLDavid]

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é.

[GLDavid]

Finalement, j'ai résolu le problème grâce à : http://search.cpan.org/~nwclark/perl...b/File/Copy.pm.
Cependant, je serais curieux de savoir pouquoi certains de mes fichiers n'étaient pas pris tout à l'heure.

@++

[Jedai]

C'est parce que system() avec un seul argument transmet la commande à un shell, qui a donc essayé d'interpréter le $ (que tu n'as pas touché dans $file)...
Pour éviter ça, soit tu traites aussi $file (pas seulement $newfile), soit tu utilises system() avec plusieurs arguments pour que perl utilise directement l'appel système pour l'exécuter plutôt que de faire appel à un shell intermédiaire.

--
Jedaï