Discussion :

[mamax29]

Bonjour,

Je suis débutant en perl et j'espère que quelqu'un pourra me donner des billes pour terminer mon programme.

Je dois analyser un fichier de log, et pour le moment j'arrive à la situation suivante:

Je stocke dans une variable un paragraphe tel que ci dessous:

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
 
{  -- SEQUENCE --
  User Label 
  {
    H26
  }
  Message Text 
  {
    SIG *N=  332/10-04-29/17-05-53/H26         /H26     /D/AA/ES_ESRE
    +/VER ATH3/ZA_WAM  / 17509
    +/FIN OU ABANDON DE SESSION                / ORIGFAIL=WX0000
    +/SESSION DE DIALOGUE AUTOCONNEXION / TERMNAME=TERMPAD0
    +/OPERNAME=                 / DSESSNB=    1 / SLFCNCN=    0
  }
  NE Function 
  {
    ZSOP
  }
  NE Edition Class 
  {
    1
  }
}

Le paragraphe est divisé en section de la forme:

Code :

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

1
2
3
4
5
 
[nom]
{
  [Valeur]
}

Je souhaiterais donc récupérer ces informations dans un tableau afin de pouvoir les traiter.

Si quelqu'un peu m'aider sur cela.

Merci

[mamax29]

Trouvé!!

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
 
#préparation de la séquence
			$sequence =~ s/{/;/g; # converti { en ;
			$sequence =~ s/}/;/g; # converti } en ;
			$sequence =~ s/ -- SEQUENCE --//g; # enleve - SEQ ...
			$sequence =~ s/^\s+|\s+$//gm; # enlève les blanc en début de ligne
			@data = split (';', $sequence);
 
			$userlabel = $data[1];
			$userlabeldata = $data[2];
			$userlabel =~ s/\n//g;
			$userlabeldata =~ s/\n//g;
			$messagetext = $data[3];
			$messagetextdata = $data[4];
			$messagetext =~ s/\n//g;
			$NEFunction = $data[5];
			$NEFunctiondata = $data[6];
			$NEFunction =~ s/\n//g;
			$NEFunctiondata =~ s/\n//g;
			$NEEditionClass = $data[7];
			$NEEditionClassdata = $data[8];
			$NEEditionClass =~ s/\n//g;
			$NEEditionClassdata =~ s/\n//g;

Apparemment cela fonctionne pour le moment.
Je ne sais pas si c'est très "propre" mais bon.

[Schmorgluck]

Pour être franc, je suis surpris que ça marche, à cause des deux premières regex :

Code :

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

1
2
			$sequence =~ s/{/;/g; # converti { en ;
			$sequence =~ s/}/;/g; # converti } en ;

Les caractères { et } ayant une signification particulière pour les regex, je suis étonné que perl laisse passer ça sans que tu les échappes.

Bon, sinon, il est possible de réduire un peu ton code. Justement, ces deux premières regex peuvent avantageusement être remplacées par un appel à tr :

Code :

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

$sequence =~ tr/{}/;;/ ;

[mamax29]

Merci,

je vais essayer cela