Discussion :

[blaise4714]

Salut à tous
j aimerai parser un fichier txt, par exemple test.txt, dont le contenu est le suivant:

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
 
 
Numero_CLASS            : 10003             
------------------------------------------------------------------------
Franck 
Maroe
------------------------------------------------------------------------
Judith
Sandrine
------------------------------------------------------------------------
------------------------------------------------------------------------
Numero_CLASS            : 10004             
------------------------------------------------------------------------
Fraise 
Monmroe
------------------------------------------------------------------------
Cedric
Cap
------------------------------------------------------------------------

j aimerai avoir à la fin

Code :

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

1
2
3
4
5
 
10003       franck         Maroe
10003       Judith         Sandrine
10004       fraise          Monmroe
10004       cedric         cap

Comment dois je proceder?
merci en avance

[Leishmaniose]

Même pas un shebang

[Invité]

Allez, ça fait pas tout à fait ce que tu veux, mais c'est déjà un très bon début vu l'effort gigantesque que tu as fait...
T'as plus qu'à faire le petit reste...

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
#!C:/Perl/bin/perl.exe
#
#
 
use strict;
use warnings;
 
my $rien = '';
my $num = 0;
 
open(FIC,'.\toto.txt') or die $!;
 
while(<FIC>) {
    next if m/^-*$/;
    chomp;
    if (m/^Numero_CLASS/) {
        ($rien,$num) = split(':');
        next;
    }
    print "$num\t $_\n";
 
 
}
 
close(FIC);

[djibril]

[blaise4714]

merci pour les reponses. ca marche vraiment mais comment dois je proceder pour avoir le nom en dessous? cad Maroe, Sandrine, Monmroe et cap?

[Jasmine80]

merci pour les reponses. ca marche vraiment mais comment dois je proceder pour avoir le nom en dessous? cad Maroe, Sandrine, Monmroe et cap?

Ce if traite les lignes contenant les mots 'Numero_CLASS'

Code :

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

if (m/^Numero_CLASS/)

Rajoute un autre if (un elsif même) qui récupèrera les noms sur les autres lignes.

[djibril]

merci pour les reponses. ca marche vraiment mais comment dois je proceder pour avoir le nom en dessous? cad Maroe, Sandrine, Monmroe et cap?

Ce serait bien que tu donnes un peu du tien et ne pas attendre une réponse toute faite.

Merci

[blaise4714]

voici ce que j ai fait:

Code :

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

1
2
3
4
5
6
 
if (m/^Franck/) {
 
       ($Name, $Name2) = split(/\n/);
      print " $Name2\t\n";
    }

j ai comme reponse tjrs le vide. Je ne sais pas vraiment ce que je fait comme erreur.
Merci

[Jasmine80]

Code :

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

1
2
3
4
    if (m/^Numero_CLASS/) {
        ($rien,$num) = split(':');
        next;
    }

Le split est utilisé sur : car tu sais que ce caractère sépare $rien de $num et te permet ainsi de récupérer $num. (or ici tes noms sont seuls sur une ligne ... et tu ne lis qu'une seule ligne à la fois)

Code :

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

1
2
3
if (m/^Franck/) {
 
    }

ici, tu ne reconnaitras que les lignes contenant le nom Franck
... tu dois écrire l'expression régulière générale qui te permet de récupérer n'importe quel groupe de lettres. Ensuite, tu utilises $1 pour récupérer le nom.

cours EXPREG

[blaise4714]

merci ca marche!!!