Bonjour,
 
Je suis débutant en PERL et je dois faire un script qui doit remplacer toutes les occurences du nombre 34 par le nombre 99 dans tous les fichiers c contenus dans le répertoire courant mais aussi dans tous les autres sous-répertoires (il y en a beaucoup, ce sera fastidieux de le faire à la main). Pour cela j'ai essayé 2 méthodes mais qui n'ont pas abouti :
 
la 1ère :
j'ai créé le script suivant :
 
#!/bin/perl
 
@ARGV= glob "*.c";
 
while (my $ligne = <> ) {
 
$ligne =~ s/34/99/;
 
print $ligne;
}
 
que j'appelle de la manière suivante :
find . -name "*.c" -exec perl -i script.pl {} \;
J'utilise le find pour appliquer le script à tous les fichiers c trouvés mais l'exécution de ce script ne modifie que les fichiers du répertoire courant et pas ceux des sous-répertoires.
 
la 2ème :
j'ai créé le script suivant :
#!/bin/perl
 
use File::Find;
 
sub process_file {
while (my $ligne = <> ) {
$ligne =~ s/34/99/;
print $ligne;
}
}
 
find(\&process_file, $ARGV[0]);
 
que j'appelle de la manière suivante :
perl -i script_2.pl *.c
 
mais la encore même résultat que précédemment, les fichiers des sous-répertoire ne sont pas modifiés.
 
Quelqu'un aurait-il une idée?
 
 
Bob_64

C'est bizarre, il y a eu presque la même question, très récemment, voir  
http://forum.hardware.fr/hfr/Progr [...] 1277_1.htm
 
Peut-être que le script n'est pas trouvé, et qu'il faudrait lui préciser son chemin avant son nom.
Sinon, on peut aussi ajouter un -type f qui ne fait pas de mal et qui précise que seuls les fichiers doivent être considérés.

perl -i script_2.pl *.c  
1) ton shell va transformer le *.c en une liste des noms de fichiers .c du répertoire courant, liste passée en argument au script
2) le script perl execute find(\&process_file, $ARGV[0]);  
 $ARGV[0] est le premier des noms de la liste des noms de fichiers .c du répertoire courant
C'est un nom de fichier, pas un nom de répertoire, ce que le find du script attend, donc il est pas surprenant qu'il aille pas récursivement dans les sous répertoires.
Tu as même de la chance que ça marche pour le répertoire courant.
 
Dans ton script perl, il faut
- passer le nom du répertoire comme argument au script
- s'il y en a pas de passé, prendre celui du repertoire courant ( use Cwd;   my $dir = getcwd;)
- verifier que le fichier est bien un fichier et que son nom est en *.c, sinon ne rien faire, au début de process_file
  faire le changement voulu dans le fichier si c'est OK
 
Note sur ton expression régulière: si on veut remplacer les 34 par 99, il faut peut être faire attention a ne pas remplacer 345 par 995 par exemple...
 
A+,

Un exemple de solution possible

#!/usr/local/bin/perl -w
use strict;
use warnings;
 
use File::Find; 
use Cwd;
 
# si pas d'argument, on prend le répertoire courant
$ARGV[0] = getcwd unless defined ($ARGV[0]);
# On processe la liste des arguments
foreach (@ARGV) {
    #on applique le find si c'est un répertoire seulement
    find(\&process_file, $_) if (-d);
}
 
sub process_file {
    #on ne traite que les fichiers c
    return unless (-f && /.+\.c$/o);
    # on ouvre et on lit le fichier dans un array
    open(my $fh, '<', $_) or return;
    my @lines = <$fh>;
    close($fh);
    # on fait la substitution dans l'array
    map {s/(^|\D)34(?=\D|$)/${1}99/go} @lines;
    # on ouvre et réécrit le fichier
    open($fh, '>', $_) or return;
    print $fh @lines;
    close($fh);
}

Une variante, plus courte, pas nécessairement plus efficace

#!/usr/local/bin/perl -w
use strict;
use warnings;
 
use File::Find; 
use Cwd;
use Tie::File;
 
# si pas d'argument, on prend le répertoire courant
$ARGV[0] = getcwd unless defined ($ARGV[0]);
# On processe la liste des arguments
foreach (@ARGV) {
    #on applique le find si c'est un répertoire seulement
    find(\&process_file, $_) if (-d);
}
 
sub process_file {
    #on ne traite que les fichiers c
    return unless (-f && /.+\.txt$/o);
    # on associe le fichier à un array
    tie my @lines, 'Tie::File', $_ or return;
    # on effectue la substitution
    map {s/(^|\D)34(?=\D|$)/${1}99/go} @lines;
    untie @lines;
}

A+,

Merci beaucoup pour la réponse et les explications, cela marche à merveille
 
Bob_64