Substitution en perl

Version imprimable

voilà, je voudrais faire une suite de remplacement dans un fichier, via perl.

quand je fais via un script, ça donnerait:
Code:

1 2 perl -pi -e "s/blablabla *\n/blablabla /g" $fichier perl -pi -e "s/blablabla hihi/blablabla\nhihi/g" $fichier
dans l'idée ou mon fichier serait du type:

Citation:

blablabla
pouet
blablabla
hihi

Citation:

pour obtenir
blablabla pouet
blablabla hihi

mais moi, je le veux dans un script perl
j'ai testé:
Code:

1 2 3 4 5 6 7 8 9 open(FIC, $fichier); open(FIC2, >$temp); while($ligne= <FIC>) { $ligne =~ s/blablabla *\n/blablabla / ; $ligne =~ s/blablabla hihi/blablabla\nhihi/ ; printf FIC2 ("$ligne"); } close(FIC); close(FIC2);
seulement, ça fonctionne pas :/

alors du coup, je trouverai ça emmerdant de devoir faire
Code:

1 2 $console = `perl -pi -e "s/blablabla *\n/blablabla /g" $fichier` ; $console = `s/blablabla hihi/blablabla\nhihi/g" $fichier` ;
pour executer du shell dans mon perl :/

pour la note, je suis sous unix

10/05/2007, 16h37
Lady

tu veux enlever ou ajouter des saut de ligne ?

tu fais pas ton substr à l'envers ? de plus si tu veux généraliser tu peut mettre s/""/""/g; (ca dépend si tu veux uniquement sur la première occurence ou sur toutes)

edit lol tu l'a mis dans la ligne de commande ...
Ca te donne quoi la ? rien ?

Citation:

Envoyé par _Moa_

Code:

1
2
3
4
5
6
7
8
9
open(FIC, $fichier);
open(FIC2, >$temp);
while($ligne= <FIC>) {
       $ligne =~ s/blablabla *\n/blablabla / ;
       $ligne =~ s/blablabla hihi/blablabla\nhihi/ ;
       printf FIC2 ("$ligne");
}
close(FIC);
close(FIC2);

Petites erreurs de syntaxe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
use strict; use warnings;
 
use Fatal qw(open close rename);
 
my $file = shift;
open my($in), '<', $file;
open my($out), '>', "$file.temp";
 
while(<$in>) {
  s/blablabla *\n/blablabla / ;
  s/blablabla hihi/blablabla\nhihi/ ;
  print $out $_;
}
close $in;
close $out;
rename "$file.temp", $file;
 
__END__

--
Jedaï

11/05/2007, 09h48
_Moa_
hum, j'ai un environnement assez allégé et les use passent pas...

Et ensuite, j'ai droit à un jolie
"Too many arguments for open ..."

et sinon, pour la note, mon code fonctionnait mais à moitié...
quand je faisais:
Code:

1 2 3 4 5 while($ligne= <FIC>) { $ligne =~ s/blablabla *\n/blablabla / ; $ligne =~ s/blablabla hihi/blablabla\nhihi/ ; printf FIC2 ("$ligne"); }
la premiere transformation était faite, mais la seconde non, car les lignes ne sont pas "mise à jour" en faite.
apres la premiere instruction, $ligne vaut "blablabla" il reprend pas la ligne suivante en enlevant le retour chariot.
11/05/2007, 09h50
_Moa_

(suite du message, je sais pas pourquoi, ça bug que je le met entier)

par contre, en inserant dans mon code
$variable = `perl -pi -e "s/blablabla\n/blablabla/g" $fichier ` ;
ça le fait directement sur tout le code.

moi ce que je cherche, c'est justement d'appliquer directement une substitution à l'ensemble du fichier avec mon script perl, comme c'est possible en shell en appelant la fonction perl comme un sed, plutot que de devoir faire une lecture/ecriture de chaque ligne du fichier pour faire un cahngement...

je sais pas si j'ai été clair :?
11/05/2007, 10h38
bustaja

A rien compris.

En tous cas, bon courage et pouek !
11/05/2007, 19h16
Jedai

Citation:

Envoyé par _Moa_

hum, j'ai un environnement assez allégé et les use passent pas...

Et ensuite, j'ai droit à un jolie
"Too many arguments for open ..."

D'accord, tu dois avoir un Perl assez ancien (plus de 7 ans d'âge...).

Tu pourrais nous donner le perl -V qu'on sache à quoi on a droit ?

--
Jedaï
14/05/2007, 09h23
_Moa_

Citation:

This is perl, version 5.004_04 built for PA-RISC1.1

Copyright etc ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
use strict; use warnings;
 
my $file = shift;
open IN, "< $file"
  or die "$!\n";
open OUT, "> $file.temp"
  or die "$!\n";
 
while(<IN>) {
  s/blablabla *\n/blablabla / ;
  s/blablabla hihi/blablabla\nhihi/ ;
  print OUT $_;
}
close IN or die "$!\n";
close OUT or die "$!\n";
rename "$file.temp", $file;
 
__END__

Il doit avoir dans les 10 ans ce Perl...

--
Jedaï

16/05/2007, 09h11
_Moa_

ben, c'est la meme chose que ce que j'ai fait dans mon premier post, non?

Il manquait le "rename" si tu veux faire comme avec l'option -i .
Par ailleurs si tu veux appliquer successivement les deux opérations de regex, je te conseille de faire ainsi :

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
28
29
#!/usr/bin/perl
use strict; use warnings;
 
sub modify_in_place (&$);
 
my $filename = shift;
modify_in_place { s/blablabla *\n/blablabla / } $filename;
modify_in_place { s/blablabla hihi/blablabla\nhihi/ } $filename;
 
sub modify_in_place (&$) {
  my $block = shift;
  my $file = shift;
  local (*IN, *OUT);
  open IN, "< $file"
    or die "$!\n";
  open OUT, "> $file.temp"
    or die "$!\n";
 
  while(<IN>) {
    $block->();
    print OUT $_;
  }
  close IN or die "$!\n";
  close OUT or die "$!\n";
  rename "$file.temp", $file;
}
 
 
__END__

Dis-moi si ça marche sur ton Perl (ça marche sur le mien). Sinon, j'essaierai de corriger.

--
Jedaï

22/05/2007, 08h57
_Moa_

ca marche, merci :)