Discussion :

[oliviernouhi]

Bonjour,

Je souhaite faire un parser en Perl afin de parcourir un fichier, d'y récupérer des informations, puis les écrire dans un autre, pour l'instant quelque chose de basique..

Je débute complétement le Perl donc je suis un peu perdu et mon code ne marche pas

Par exemple mon fichier qui se faire lire par le parser est :

aaaaatest32aaaaa
zzzztest24zzzzz
ztest12zzzzzz
bbbbbbtest44

Voici le début de mon code :

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
#!usr/bin/perl -w 
use strict; 
user warning; 
 
my $var1 = ""; 
 
#print "Début du traitement" 
 
open FICHIER,"<monfichier.txt" or die "E/S : $!\n"; 
open ECRIRE,">montest.txt" or dir ("Erreur de création de  montest.txt"); 
while (my $ligne = <FICHIER>){ 
 if ($ligne =~ /\s*(test\2w*)/{ 
 $var1 = "recherche du mot test dans la ligne " : $1; 
 } 
 
close FICHIER; 
close ECRIRE; 
#print "Fin du traitement"

Je voudrais donc que dans mon fichier montest.txt soit écrit :

test32
test24
test12
test44

Merci d'avance pour votre aide pour corriger mon code qui ne fonctionne pas et d'éventuelle évolutions !

[lilian_h]

[lilian_h]

Bonjour,

le

Code :

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

user warning

devrait plutot être

Code :

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

use warnings;

Aussi, ton while n'a pas de '}' ...

Ce sont des erreurs de copier-coller ?

Aussi il faudrait penser à indenter ton code correctement, ce n'est vraiment pas lisible.

Essai de voir avec ça

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
 
#!usr/bin/perl -w 
use strict; 
use warnings; 
 
my $var1 = ""; 
 
#print "Début du traitement" 
 
open FICHIER,"<monfichier.txt" or die "E/S : $!\n"; 
open ECRIRE,">montest.txt" or dir ("Erreur de création de  montest.txt"); 
while (my $ligne = <FICHIER>)
{ 
    if ($ligne =~ /test[0-9]*/)
    { 
	$ligne=~ s/.*(test[0-9]*).*/$1/;
	 print "Mot  : $ligne \n"; 
    } 
}
close FICHIER; 
close ECRIRE; 
#print "Fin du traitement"

[Philou67430]

Il est également possible de remplacer ceci :

Code :

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

1
2
3
4
5
    if ($ligne =~ /test[0-9]*/)
    { 
	$ligne=~ s/.*(test[0-9]*).*/$1/;
	 print "Mot  : $ligne \n"; 
    }

par ceci

Code :

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

1
2
3
4
    if (my ($test) = $ligne =~ /(test\d+)/)
    { 
	 print "Mot  : $test \n"; 
    }

ce qui n'altère pas $ligne (note au passage que [0-9]* s'est transformé en \d+, notamment pour ne pas matcher le mot "test" sans chiffre à la suite).

[Philou67430]

Avec les commentaires

Code :

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

1
2
3
4
5
6
7
8
9
 
    # Si la ligne contient "test" suivi éventuellement de chiffres ([0-9]*)
    if ($ligne =~ /test[0-9]*/)
    { 
        # Remplacer dans la ligne, tout ce qui se trouve autour de "test[0-9]*" (y compris ce motif) par ce motif
	$ligne=~ s/.*(test[0-9]*).*/$1/;
         # Imprimer "Mot : " suivi de la nouvelle ligne
	 print "Mot  : $ligne \n"; 
    }

Et ma proposition:

Code :

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

1
2
3
4
5
6
7
 
    # Si le motif "test" suivi d'au moins un chiffre est trouvé, l'extraire dans $test et
    if (my ($test) = $ligne =~ /(test\d+)/)
    { 
         # imprimer "Mot : " suivi du motif trouvé
	 print "Mot  : $test \n"; 
    }

[oliviernouhi]

Merci pour ta réponse, tout est bien sauf un petit soucis,

Voici donc mon code actuel :

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
 
#!usr/bin/perl -w 
use strict; 
use warnings; 
 
my $var1 = ""; 
 
#print "Début du traitement" 
 
#lire dans monfichier.txt 
open FICHIER,"<monfichier.txt" or die "E/S : $!\n"; 
#écrire dans mon test.txt
open ECRIRE,">montest.txt" or dir ("Erreur de création de  montest.txt"); 
 
#tant qu'il y a des lignes dans mon fichier
while (my $ligne = <FICHIER>)
{ 
    # Si la ligne contient "test" suivi éventuellement de chiffres ([0-9]*)
    if ($ligne =~ /test[0-9]*/)
    { 
        # Remplacer dans la ligne, tout ce qui se trouve autour de "test[0-9]*" (y compris ce motif) par ce motif
		$ligne=~ s/.*(test[0-9]*).*/$1/;
         # Imprimer "Mot : " suivi de la nouvelle ligne
	 print "Mot  : $ligne \n"; 
    } 
 
}
 
#fermeture des fichiers
close FICHIER; 
close ECRIRE; 
#print "Fin du traitement"

Par contre quand je compile avec dans le cmd : perl parser.pl

ll m'afficher a l'écran tout les print, me crée le fichier montest.txt mais il est vide

Une idée ?

[oliviernouhi]

Merci pour vos réponses, c'est déjà mieux effectivement !
Par contre pouvez vos m'expliquer avec des commentaires dans le code svp :

Code :

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

1
2
3
4
5
6
7
8
9
 
while (my $ligne = <FICHIER>)
{ 
    if ($ligne =~ /test[0-9]*/)
    { 
	$ligne=~ s/.*(test[0-9]*).*/$1/;
	 print "Mot  : $ligne \n"; 
    } 
}

Voila ce que j'arrive a comprendre ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
#tant qu'il y a des lignes dans le fichier
while (my $ligne = <FICHIER>)
{ 
    #pourquoi [0-9]?
    if ($ligne =~ /test[0-9]*/)
    { 
	 #ligne qui sera copié dans l'autre fichier mais c'est flou...
         $ligne=~ s/.*(test[0-9]*).*/$1/;
         # ??? écrit Mot : la valeur stocké dans ligne ?
	 print "Mot  : $ligne \n"; 
    } 
}

Je suis vraiment débutant dans ce langage, merci pour vos futurs réponses.