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 :
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 ?
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); }
Merci d'avance.
@++
GLDavid, apparemment pas réveillé.![]()
Partager