Discussion :

[GLDavid]

Bonjour à vous tous !

Comme j'ai un peu de temps libre au taf', je m'initie au Perl (après du Java, du PHP et du C, ça ait du bien de découvrir autre chose ).
Ce que je veux, c'est écrire un petit script qui cherche un motif dans un fichier et le remplac par un autre motif :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
#!/usr/bin/perl
 
print ("Chemin absolu du fichier : \n");
$f = <STDIN>;
chomp ($f);
print ("Rentrer un motif à remplacer : \n");
$m1 = <STDIN>;
chomp ($m1);
print ("Rentrer le motif de remplacement : \n");
$m2 = <STDIN>;
chomp ($m2);
open (FIC, '+<'.$f) || die("Ouverture de $f impossible !");
$i = 1;
while (<FIC>) {
	if (/$m1/) {
		print ("Motif $m1 trouvé à la ligne $i.\n");
		$ligne =~ s/$m1/$m2/g;
		$l = syswrite(FIC, $ligne, length($ligne));
		print ("Remplacement de $m1 par $m2.\n");
 
	}
	$i++;
}
close FIC;

Le script détecte bien les motifs. Le problème, c'est que j'arrive pas à faire les substitutions !
Où est mon erreur ?

Merci de vos posts !

@ +++

[GLDavid]

Bon, g trouvé !

Pour ceux que ça intéresse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
30
31
32
33
 
#!/usr/bin/perl
 
print ("Chemin absolu du fichier : \n");
$f = <STDIN>;
chomp ($f);
print ("Rentrer un motif à remplacer : \n");
$m1 = <STDIN>;
chomp ($m1);
print ("Rentrer le motif de remplacement : \n");
$m2 = <STDIN>;
open (FIC, '+<'.$f) || die("Ouverture de $f impossible !");
open (FILE, '>toto2.txt') || die("Ouverture de toto2.txt impossible !");
$i = 1;
while (<FIC>) {
	if (/$m1/) {
		print ("Motif $m1 trouvé à la ligne $i.\n");
		$_ =~ s/$_/$m2/g;
		$m = $m2;
		$l = syswrite(FILE, $_."\n", length($_));
		print ("Remplacement de $m1 par ".chomp($m)."\n");
 
	}
	else {
		$l = syswrite(FILE, $_, length($_));
	}
	$i++;
}
close FIC;
close FILE;
unlink $f;
rename ("toto2.txt", $f);
print ("Finished !!!\n");

@ +++

[nyal]

Bonjour,

On va te faire une version plus Perl. Ce n'est pas parce que Perl a la reputation d'etre un langage de goret qu'il faut oublier l'option -w et use strict :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 -w
 
use strict;
$| = 1; # Pour vider les buffer
 
my ($f, $m1, $m2);
print "Chemin absolu du fichier : " and chomp($f = <STDIN>);
print "Rentrer un motif a remplacer : " and chomp($m1 = <STDIN>);
print "Rentrer le motif de remplacement : " and chomp($m2 = <STDIN>);
open FIC, $f or die "$f : $!\n";
open FILE, '>toto2.txt' or die "toto2.txt : $!\n";
my $i = 1;
while (<FIC>) {
   if (/$m1/) {
      print "Motif $m1 trouve a la ligne $i.\n";
      s/$m1/$m2/g;
      print FILE ;
      print "Remplacement de $m1 par $m2\n";
   }
   else {
      print FILE ;
   }
   $i++;
}
close FIC and close FILE;
unlink $f;
rename "toto2.txt", $f;
print "Finished !!!\n";

C'est une possibilité.

[GLDavid]

Merci Nyal pour ce complément, j'étudierais ça histoire d'en apprendre plus sur ce langage de script qu'est Perl.

Merci encore et @ +++
Bon WE

[darkloran]

les améliorations de nyal étaient indispensables

on peut aussi lire le fichier d'un coup et remplacer toutes les occurences en une fois en mémoire (dépend de la taille du fichier) (mais dans ce cas on ne récupère pas les numéros de lignes )

[nyal]

les améliorations de nyal étaient indispensables

Ce ne sont pas des ameliorations mais des changements pour rester dans l'esprit Perl.
C'est tout a fait different (bon suis de mauvaise foie )
Puis l'utilisation de syswrite n'etait pas judicieuse. (Ca ressemble trop au C)

[darkloran]

Ce ne sont pas des ameliorations mais des changements pour rester dans l'esprit Perl.

j'accepte cette correction... "there's more than one way to do it..."
ceci dit, il y a des manières qu'il vaut mieux éviter