[langage] substitution chaine

Version imprimable

10/12/2002, 11h52
sati

[langage] substitution chaine

bonjour,

je ne connait pas bien le perl.
mais, je voudrais trouver un script qui modifie une chaine1 par chaine2 dans tous les fichiers du repertoire courant.

merci.
10/12/2002, 13h14
sati

j'ai essaié la commande suivante mais je n'ai aucun resultat.

/usr/bin/perl -i -p -e 's/www.pagesjaunes.fr\/rc.cgi?faire=plan&NIV_PLAN=1/photos.pagesjaunes.fr/g' *.html

tiens voila un script fais un deux seconde.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
#! /usr/bin/perl
 
opendir DIR_FD, "." or die "impossible à ouvrir";
@contenutmp = readdir DIR_FD;
foreach (@contenutmp) {
  unless (/^(\.\.|\.)/) {
        $filename = $_;
        open(FD, "<$_");
        open(FD2, ">$_" . ".old");
        while (<FD>) {
          s/chat/chat/g;
          print FD2 $_;
        }
        close(FD);
        close(FD2);
        unlink($filename);
        open(FD, $filename . ".old");
        open(FD2, ">$filename");
        while (<FD>) {
            print FD2 $_;
        }
        close(FD);
        close(FD2);
        unlink($filename . ".old");
  }
}

je n ai pas le temps de le faire plus petit. fais passer les choses par le tableau d arguments.
et gere comme tu le souhaites :)
tu peux y aller par shell script aussi. et aussi par ligne ed commande. ej sais que cela est possible mais je souvines plus de la ligne avec perl

11/12/2002, 09h02
sati

merci nyal

je n'ai pas compris le script.
je ne vois pas ce qu'il faut passer en argument, ni comme le script fait pour recuperer ces arguments.

merci encord pour ton aide.
11/12/2002, 10h01
nyal

Re: merci nyal

Citation:

Envoyé par sati

je n'ai pas compris le script.
je ne vois pas ce qu'il faut passer en argument, ni comme le script fait pour recuperer ces arguments.

merci encord pour ton aide.

tu n'es pas obliger de passer quelque chose en argument. c'est juste par exemple si tu veux remplacer un mot par un autre. plutot d'aller dans le script pour changer. un passage d argument me semble plus sympathique.
Il recupere tout seul les arguments perl. il suffit d'aller dans le tableau @ARGV.

voila. dis ce que tu n'as pas compris dans le script.