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).

[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.

[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]

j'ai rajouté

Code :

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

print ECRIRE $ligne;

a la fin de monde code, tout est parfait merci ! =)

[oliviernouhi]

J'ai encore un petit soucis, après quelques tests,

J'ai reussis a gérer les lignes vides et si il n'y a pas de mot " test " dans la ligne en changeant :

Code :

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

if (($ligne =~ /test[0-9]*/)|| ($ligne =~ s/\n\n/^M/g))

Par contre je n'arrive pas a gérer si on rencontre 2 fois le mot " test " dans le ligne, il ne me prend que je premier ..

Code :

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

if ($ligne =~ /test[0-9]*/)

afin de gérer plusieurs fois le mot test

Mais je bloque..

Peux tu m'aider stp ?

[fabrice91]

J'ai reussis a gérer les lignes vides et si il n'y a pas de mot " test " dans la ligne en changeant

Je préfère écrire

Code :

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

 next if $ligne != /test/ ;

ce qui signifie que l'on passe à la ligne suivante (next est utilisable dans les boucles for et while) si la ligne ne contient pas != le motif entre //

Par contre je n'arrive pas a gérer si on rencontre 2 fois le mot " test " dans le ligne, il ne me prend que je premier ..

Une manière de faire, documentée...
Tu peux lancer ce code tel quel et l'adapter ensuite dans le tien :

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
#!/usr/bin/perl
 
use strict ;
use warnings ;
use Data::Dumper ;
 
# chaines a tester dans un tableau pour en tester plusieurs
my @chaines = ("aaaaatestzzzzztest123uuuuu", "aaaatesthhhhh", "aaaaatest125852", "test", "test145") ;
# pour chaque chaine que l'on veut tester
foreach my $test ( @chaines ) {
    # on split la chaine suivant le motif test sans ou avec des chiffres derriere
    # on met le motif entre () pour récupérer aussi ce motif dans le tableau (sinon il est éliminé) 
    # le resultat du split se retrouve dans le tableau @test
    my @test = split(/(test\d*)/, $test) ;
    # on imprime la chaine de depart (pour DEBUG)
    print $test . "\n" ;
    # on imprime le contenu du tableau @test (pour DEBUG)
    print Dumper(\@test) ;
    # on fait ensuite un grep sur @test pour ne récupérer que les elements qui contiennent "test"
    my @res = grep { $_ =~ /test/ } @test ;
    # on imprime le tableau résultat (pour DEBUG)
    print Dumper(\@res) ;
    print "-------------------------------------\n" ;
}

[oliviernouhi]

Super Merci pour tout, a moi de bosser

[Philou67430]

Je préfère écrire

Code :

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

 next if $ligne != /test/ ;

ce qui signifie que l'on passe à la ligne suivante (next est utilisable dans les boucles for et while) si la ligne ne contient pas != le motif entre //

Sauf erreur, ce n'est pas ce que cela signifie...
Pour ignorer les lignes ne contenant pas test, il faut écrire :

Code :

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

next if $ligne !~ /test/;

(opérateur !~)


Pour ce qui est de traiter "toutes les occurrences" de test dans une ligne, c'est assez simple à partir de mon code précédent : au lieu d'un simple if, il suffit d'une foreach :

Code :

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

1
2
3
4
5
6
    # Pour tous les motifs "test" suivi d'au moins un chiffre est trouvés
    foreach my $test ($ligne =~ /(test\d+)/g)
    { 
         # imprimer "Mot : " suivi du motif trouvé
	 print "Mot  : $test \n"; 
    }

Normalement, il n'y a pas lieu de traiter de manière particulière les lignes vides, puisqu'une ligne vide ne contient jamais "test...".
Je ne comprends donc pas le besoin

[fabrice91]

En fait je ferais plutôt d'abord une première boucle de lecture du fichier en récupérant les lignes qui t'intéressent avec la méthode que je t'ai donné, puis au lieu de faire un print, tu fais un push de @res dans un tableau par exemple @final que tu auras initialisé en dehors de la boucle avec juste un

Code :

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

my @final ;

et donc le push au lieu du print :

Code :

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

push @final, @res ;

Et puis tout à la fin, une fois que tu as fini de lire ton fichier et fais le close dessus, tu ouvres ton fichier dans lequel tu veux écrire et tu fais :

Code :

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

print ECRIRE join(@final,"\n") ;

Ce qui va écrire toutes les lignes de final avec un saut à la ligne au bout de chaque ligne.
D'ailleurs pour écrire dans un fichier, je préfère le format à 3 opérateurs :

Code :

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

1
2
3
open my $OUT, ">", "mon_fichier.txt" ;
print $OUT join(@final, "\n") ;
close $OUT ;

ou

Code :

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

1
2
3
4
my $file = "mon_fichier.txt" ;
open my $OUT, ">", $file ;
print $OUT join(@final, "\n") ;
close $OUT ;

Le premier élément $OUT est le filehandler que tu vas utiliser ensuite pour écrire/lire ton fichier, le second élément détermine si tu es en lecture "<", en écriture ">", ou en append ">>" et le troisième élément, le nom du fichier lui-même.

[Philou67430]

En fait je ferais plutôt d'abord une première boucle de lecture du fichier en récupérant les lignes qui t'intéressent avec la méthode que je t'ai donné, puis au lieu de faire un print, tu fais un push de @res dans un tableau par exemple @final que tu auras initialisé en dehors de la boucle avec juste un

Code :

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

my @final ;

et donc le push au lieu du print :

Code :

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

push @final, @res ;

Et puis tout à la fin, une fois que tu as fini de lire ton fichier et fais le close dessus, tu ouvres ton fichier dans lequel tu veux écrire et tu fais :

Code :

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

print ECRIRE join(@final,"\n") ;

J'aurais tendance à dire que cela dépend de ce que souhaite faire oliviernouhi. S'il souhaite travailler sur les lignes contenant "test", effectivement, les empiler dans une table peut avoir un intérêt.
S'il ne s'agit que de faire un print, autant le faire au moment de la lecture. Je ne vois pas de raison pour compliquer la chose.

D'ailleurs pour écrire dans un fichier, je préfère le format à 3 opérateurs :

Code :

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

1
2
3
open my $OUT, ">", "mon_fichier.txt" ;
print $OUT join(@final, "\n") ;
close $OUT ;

Entièrement d'accord.
J'ajouterais :
- ne pas oublier le "or die" :

Code :

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

open my $OUT, ">", "mon_fichier.txt" or die "Can't open mon_fichier.txt: $!";

- pour éviter toute ambiguïté, systématiquement utiliser un bloc autour du filehandle :

Code :

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

print { $OUT } map "$_\n", @final;

(map au lieu de join pour qu'il y ait un \n sur la dernière ligne).

[oliviernouhi]

merci encore pour votre aide, effectivement je suis début ta, ta méthode fabrice est bien mais pas évidente !!

a bientot

[fabrice91]

J'aurais tendance à dire que cela dépend de ce que souhaite faire oliviernouhi. S'il souhaite travailler sur les lignes contenant "test", effectivement, les empiler dans une table peut avoir un intérêt.
S'il ne s'agit que de faire un print, autant le faire au moment de la lecture. Je ne vois pas de raison pour compliquer la chose.

Pour la maintenance et la réutilisation du code, je préfère prendre l'habitude de travailler avec des blocs fonctionnels, chacun faisant son boulot.
A la limite tu peux faire une fonction pour la lecture du fichier, une fonction pour l'impression et ton "main" appelle simplement les deux fonctions. Si dans 2 semaines tu te rends compte que tu aimerais faire un peu plus de traitement lors de la lecture du fichier et la préparation des données, ca devient moins le bazar ! tu as juste à modifier la fonction de traitement.
Si tu as envie de changer la manière dont tu sors tes résultats pour avoir une mise en page plus sexy, le simple print peut devenir plus compliqué et s'il est séparé ce sera plus facile et plus lisible à modifier...

J'ajouterais :
- ne pas oublier le "or die" :

J'avoue ne jamais le faire...
Parce que de toutes façons, s'il ne trouve pas le fichier, tu le sauras assez vite par un message d'erreur...
Et puis un die, si tu es dans CGI, aie aie la sortie va être violente
Donc plutôt faire un warn() ou alors utiliser Carp (use Carp) et faire un carp qui te donnera plus d'infos sur l'erreur et permettras de la gérer moins violemment...

[fabrice91]

Hop, voilà une petite façon de faire pour Olivier, on doit pouvoir faire certainement mieux, évidemment, ou bien différemment, avec plus ou moins de contrôle sur la gestion des erreurs...
Enfin avec ce petit bout de code, tu vas pouvoir décortiquer 2/3 choses...

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
34
35
36
37
38
39
40
41
42
43
44
45
#!/usr/bin/perl
 
use strict ;
use warnings ;
use Data::Dumper ;
use Carp ;
 
sub read_file($) {
    my $file = shift ;
    open my $IN, "<", $file || return 0 ;
    my $final ;
    while ( my $line = <$IN> ) {
        next if $line !~ /test/ ;
        my @test = split(/(test\d*)/, $line) ;
        my @res = grep { $_ =~ /test/ } @test ;
        push @$final, @res ;
    }
    return $final ;
}
 
sub print_file($$) {
    my $file   = shift ;
    my $final  = shift ;
    open my $OUT, ">", $file || return 0 ;
    print $OUT join("\n",@$final) ;
    close $OUT ;
    return 1 ;
}
 
my $file_in  = "text_in.txt" ;
my $file_out = "text_out.txt" ;
 
my $final = read_file($file_in) ;
if ( not $final ) {
    print "A problem occurs while reading file $file_in\n" ;
    exit 0 ;
}
 
my $res = print_file($file_out, $final) ;
if ( not $res ) {
    print "A problem occurs while writing file $file_out\n" ;
    exit 0 ;
}
 
exit 1 ;

Tu l'appelles test.pl, chmod +x test.pl pour le rendre exécutable et tu le lances par ./test.pl en ligne de commande.
Pour améliorer, tu peux mettre :

Code :

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

1
2
my $file_in  = $ARGV[0] ;
my $file_out = $ARGV[1] ;

et lancer alors le script par

Code :

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

./test.pl text_in.txt text_out.txt

en tant qu'arguments.

[Philou67430]

Si tu as envie de changer la manière dont tu sors tes résultats pour avoir une mise en page plus sexy, le simple print peut devenir plus compliqué et s'il est séparé ce sera plus facile et plus lisible à modifier...

Je suis entièrement d'accord, et c'est exactement ce que je fais, mais seulement si c'est nécessaire (il est assez aisé de déplacer le corps d'un bloc de for dans une fonction).
Mais j'avoue que dans mes travaux en perl, il y a beaucoup d'applications ultra-légère oneshot (des unilignes, des petits scripts), et des scripts plus complexes mais basés sur des traitements de fichiers très gros, pour lesquels l'approche fonctionnelle (qui nécessite souvent de charger complètement le fichier en mémoire), c'est pas possible ou facile à réaliser pour respecter les contraintes matérielles.