problème regex please

**mariafan** · 30/04/2007, 12h02

Bonjour,

tout d'abord, merci de bien vouloir m'aider à résoudre ce problèm.
je suis un novice de perl.
j'essaye de récupérer des données d'un fichier texte.
la situation est que dans le fichier .txt j'ai plusieurs mots clés qui m'indique le début d'une commande et après j'ai plusieurs messages de sorties, j'essaye de récupérer ces messages.
merci d'avance , de m'aider à avoir le bon code
je voudrais bien vous faire part de mon fichier .txt mais il est très long
help.
dans un premier temps je fais un petit test pour récuperer les messages d''une commande.
voila le bout de code que j'ai codé "mon premier"
dans un premier temps je fais un petit test pour récuperer les messages d''une commande.

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  -w
#!/C:/Program Files/LuckaSoft/EngInSite Perl Editor/perle.exe
 
use warnings;use strict;
# ouvrir le fichier en lecture est ce que c'est juste comme ça  ou il faut la mettre comme ça : "c/doument and setting/farid.bureau/9cegetel/test_out"
open F_LIRE,"C:/Documents and Settings/farid/Bureau/9cegetel/test_out.txt"
   or die "E/S : $!\n";
 
# ouvrire un autre fichier en ecriture (pour les résultats'
open F_ECRIRE,">> C:/Documents and Settings/farid/Bureau/9cegetel/resultat.txt"
   or die "E/S : $!\n";
 
#  détecter la commande SRFIL
m/SRFIL/; # j'éi besoin de faire la même chose pour plusieurs chaines = SRFIL; ESMIN; GLRIL; ALAIL; ANOIL; NSSIN; DMPIL; 
 
#k ecrire dans le fichier résultat le paragrape de la commande
# debut de ligne:     TRAITEMENT TDRHM0 ACC /fin de pargraphe :     TRAITEMENT TDRHM0 EXC
while(<F_LIRE>){
  print F_ECRIRE if /^    TRAITEMENT TDRHM0 ACC/.../^\    TRAITEMENT TDRHM0 EXCs*$/;
 
}   
 
close F_LIRE;
close F_ECRIRE;

**Jedai** · 30/04/2007, 12h32

Et quel est le problème ? Ton code a l'air aussi correct que je puis le dire sans avoir un échantillon du texte auquel il s'applique. Sauf le :

Code :

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

1
2
#  détecter la commande SRFIL
m/SRFIL/; # j'éi besoin de faire la même chose pour plusieurs chaines = SRFIL; ESMIN; GLRIL; ALAIL; ANOIL; NSSIN; DMPIL;

Qui traîne en plein dans le désert (tu ne vérifie pas du tout sa valeur de retour), sans parler du fait que tu n'a même pas commencé à lire le fichier à ce niveau là...

--
Jedaï

**mariafan** · 30/04/2007, 13h31

bonjour,
d'abord merci beaucoup de votre réponse assez rapide
ce qus je sache m/chaine/ : c'est pour chercher un mot clés dans le texte appartir du quel je commence le traitement.
parceque en fait, pour chaque commande il ya d'abord son nom au début de la ligne puis après les messages correspondant.
exemple: les mots que j'ai souligné sont les mots clés que je voudrais détecter

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
ESMIN:ETAT=HS;

   CMD ESMIN  00002   07-03-07 06-33-46
   INP ESMIN  00002   07-03-07 06-33-46



   RES ESMIN  00002   07-03-07 06-33-46
    CEN=1/07-03-07/06 H 33 MN 46/INTERROGATION D'ETAT DE SM
    TRAITEMENT TDRHM0 ACC

     AM=SMB15       ETAT=INDL AUTS=NON AGEO=S1-TR02-B10-A137-R002
       AF=PUPE7     ETAT=INDL
    TRAITEMENT TDRHM0 EXC

COMMANDE EXECUTEE

   RPT ESMIN  00002   07-03-07 06-33-46
       EXC


===============================================================================
   SRFIL,DBG=H'F':EVT=0+13+5,DD=07-2-07;

   CMD SRFIL  00003   07-03-07 06-33-58
   INP SRFIL  00003   07-03-07 06-33-58



   RES SRFIL  00003   07-03-07 06-33-58
    CEN=1/07-03-07/06 H 33 MN 58/LISTAGE SURETE DE FONCTIONNEMENT
    TRAITEMENT TDRHM0 ACC
    07-02-10/20 H 45 MN 34 EVT=00 :MISE HS (FAUTE)
      /AM = SMB11 ETAT=ES   AF=PUPE4
      / 0200 0702 1020 4534 048A 0155 0000 0000 0000 0000 0000 0000
      / 11AF 6100 0600 0000 0000 0155 4100 0602 0300 4200 0004 FFE5
      / 090D 51
    07-02-10/20 H 51 MN 34 EVT=00 :MISE HS (FAUTE)
      /AM = SMB12 ETAT=ES   AF=PUPE5
      / 0200 0702 1020 5134 048B 0156 0000 0000 0000 0000 0000 0000
      / 11AF 6100 0600 0000 0000 0156 4100 0702 0300 4200 0004 FFE5
      / 090D 31
    07-02-13/11 H 28 MN 42 EVT=00 :MISE HS (FAUTE)
      /AM = SMB14 ETAT=ES   AF=PUPE6
      / 0200 0702 1311 2842 048D 0157 0000 0000 0000 0000 0000 0000
      / 11AF 6100 0600 0000 0000 0157 4100 0802 0300 4200 0004 FFE5
      / 090D 31
    07-02-20/01 H 16 MN 09 EVT=24 :DIFF.ETAT SYS ES
      / 0218 0702 2001 1609 0000 0000 0000 0000 0000 0000 0000 0000
      / 10AF 10
    07-02-27/12 H 12 MN 10 EVT=24 :DIFF.ETAT SYS ES
      / 0218 0702 2712 1210 0000 0000 0000 0000 0000 0000 0000 0000
      / 10AF 8000 0010 00FF FF
    TRAITEMENT TDRHM0 EXC

COMMANDE EXECUTEE

   RPT SRFIL  00004   07-03-07 06-45-22
       EXC

**Jedai** · 30/04/2007, 13h37

Envoyé par mariafan

bonjour,
d'abord merci beaucoup de votre réponse assez rapide
ce qus je sache m/chaine/ : c'est pour chercher un mot clés dans le texte appartir du quel je commence le traitement.
parceque en fait, pour chaque commande il ya d'abord son nom au début de la ligne puis après les messages correspondant.
exemple: les mots que j'ai souligné sont les mots clés que je voudrais détecter

Ok, mais il faut tout de même mettre la regex dans la boucle de lecture, et FAIRE QUELQUE CHOSE AVEC !!
Je ne suis pas sûr de comprendre ce que tu veux, veux tu récupérer les lignes entre deux commandes ? Et dans ce cas à quoi sert ton autre regex dans la boucle de lecture ?

--
Jedaï

**mariafan** · 30/04/2007, 14h04

je ne sais pas est ce que ce que j'ai fais est bien ou pas:
l'idée est de :
ouvrir le fichiers source en lecture, ouvrir un fichier résultat en écriture, puis en lisant le fichier source récupérer les message de chaque commande et les écrire dans le fichier source

pourriez-vous me dire ce que vous en pensez.

**mariafan** · 30/04/2007, 14h07

EN FAIT

en faite ce que je dois faire exactement est de récuperer les information de chaque message parmis tous les message de chaque commande et envoyer ces informations dans une base de données MySQL,
mais puisque je suis débutant j'essaye de faire ce petit test pour savoir si j'ai bien compris le petit cours que j'ai lu ou pas.

**Jedai** · 30/04/2007, 14h40

Envoyé par mariafan

je ne sais pas est ce que ce que j'ai fais est bien ou pas:
l'idée est de :
ouvrir le fichiers source en lecture, ouvrir un fichier résultat en écriture, puis en lisant le fichier source récupérer les message de chaque commande et les écrire dans le fichier source

pourriez-vous me dire ce que vous en pensez.

Tout cela est très bien, mais comme tu ne me dis pas ce que tu veux avoir en sortie, cela ne m'aide pas beaucoup... Visiblement tu ne veux pas avoir toutes les lignes entre deux commandes, mais veux-tu tout de même avoir le nom de la commande ? Présenté comment ?
D'habitude quand quelqu'un, comme toi, n'arrive pas à exprimer clairement son besoin, je lui demande de me donner un échantillon d'entrée, et l'échantillon de sortie correspondant, pourrais-tu faire cela ?

--
Jedaï

**mariafan** · 30/04/2007, 14h49

vous voulez que je vous explique ce que je dois faire, ou je vous explique justement l'exemple que je fais en ce moment?
merci beaucoup

**mariafan** · 30/04/2007, 14h56

pour le petit teste
voila le fichier d'entré
[CODE]
oui bien sure, et merci beaucoup
voila un exemple d'entrée:

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
 
ESMIN:ETAT=HS;
 
   CMD ESMIN  00002   07-03-07 06-33-46
   INP ESMIN  00002   07-03-07 06-33-46
 
 
 
   RES ESMIN  00002   07-03-07 06-33-46
    CEN=1/07-03-07/06 H 33 MN 46/INTERROGATION D'ETAT DE SM
    TRAITEMENT TDRHM0 ACC
     AM=SMA2        ETAT=ES   AUTS=NON AGEO=S1-TR03-B06-A109-R014
       AF=PUPE2     ETAT=ES  
       AF=ETA2      ETAT=ES  
 
     AM=SMA3        ETAT=ES   AUTS=NON AGEO=S1-TR03-B06-A147-R014
       AF=PUPE3     ETAT=ES  
       AF=ETA3      ETAT=ES  
 
     AM=SMTB14      ETAT=ES   AUTS=NON AGEO=S1-TR02-B08-A177-R000
       AF=URMB14    ETAT=ESRE
 
     AM=SMTA15      ETAT=ES   AUTS=NON AGEO=S1-TR04-B03-A085-R000
       AF=URMA15    ETAT=ES  
 
     AM=SMTB15      ETAT=ES   AUTS=NON AGEO=S1-TR04-B03-A112-R000
       AF=URMB15    ETAT=ESRE
 
 
 
 
    TRAITEMENT TDRHM0 EXC
 
COMMANDE EXECUTEE
 
   RPT ESMIN  00002   07-01-18 15-33-19
       EXC
===============================================================================
   SRFIL,DBG=H'F':EVT=0+13+5,DD=07-2-07;
 
   CMD SRFIL  00003   07-03-07 06-33-58
   INP SRFIL  00003   07-03-07 06-33-58
 
 
 
   RES SRFIL  00003   07-03-07 06-33-58
    CEN=1/07-03-07/06 H 33 MN 58/LISTAGE SURETE DE FONCTIONNEMENT
    TRAITEMENT TDRHM0 ACC
    07-02-10/20 H 45 MN 34 EVT=00 :MISE HS (FAUTE)
      /AM = SMB11 ETAT=ES   AF=PUPE4
      / 0200 0702 1020 4534 048A 0155 0000 0000 0000 0000 0000 0000
      / 11AF 6100 0600 0000 0000 0155 4100 0602 0300 4200 0004 FFE5
      / 090D 51
    07-02-10/20 H 51 MN 34 EVT=00 :MISE HS (FAUTE)
      /AM = SMB12 ETAT=ES   AF=PUPE5
      / 0200 0702 1020 5134 048B 0156 0000 0000 0000 0000 0000 0000
      / 11AF 6100 0600 0000 0000 0156 4100 0702 0300 4200 0004 FFE5
      / 090D 31
    07-02-13/11 H 28 MN 42 EVT=00 :MISE HS (FAUTE)
      /AM = SMB14 ETAT=ES   AF=PUPE6
      / 0200 0702 1311 2842 048D 0157 0000 0000 0000 0000 0000 0000
      / 11AF 6100 0600 0000 0000 0157 4100 0802 0300 4200 0004 FFE5
      / 090D 31
    07-02-20/01 H 16 MN 09 EVT=24 :DIFF.ETAT SYS ES
      / 0218 0702 2001 1609 0000 0000 0000 0000 0000 0000 0000 0000
      / 10AF 10
    07-02-27/12 H 12 MN 10 EVT=24 :DIFF.ETAT SYS ES
      / 0218 0702 2712 1210 0000 0000 0000 0000 0000 0000 0000 0000
      / 10AF 8000 0010 00FF FF
    TRAITEMENT TDRHM0 EXC
 
COMMANDE EXECUTEE
 
   RPT SRFIL  00004   07-03-07 06-45-22
       EXC

et l'exemple de sortie est:

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
 
ESMIN:
     AM=SMA2        ETAT=ES   AUTS=NON AGEO=S1-TR03-B06-A109-R014
       AF=PUPE2     ETAT=ES  
       AF=ETA2      ETAT=ES  
 
     AM=SMA3        ETAT=ES   AUTS=NON AGEO=S1-TR03-B06-A147-R014
       AF=PUPE3     ETAT=ES  
       AF=ETA3      ETAT=ES  
 
     AM=SMTB14      ETAT=ES   AUTS=NON AGEO=S1-TR02-B08-A177-R000
       AF=URMB14    ETAT=ESRE
 
     AM=SMTA15      ETAT=ES   AUTS=NON AGEO=S1-TR04-B03-A085-R000
       AF=URMA15    ETAT=ES  
 
     AM=SMTB15      ETAT=ES   AUTS=NON AGEO=S1-TR04-B03-A112-R000
       AF=URMB15    ETAT=ESRE
 
SRFIL:
 
    07-02-10/20 H 45 MN 34 EVT=00 :MISE HS (FAUTE)
      /AM = SMB11 ETAT=ES   AF=PUPE4
      / 0200 0702 1020 4534 048A 0155 0000 0000 0000 0000 0000 0000
      / 11AF 6100 0600 0000 0000 0155 4100 0602 0300 4200 0004 FFE5
      / 090D 51
    07-02-10/20 H 51 MN 34 EVT=00 :MISE HS (FAUTE)
      /AM = SMB12 ETAT=ES   AF=PUPE5
      / 0200 0702 1020 5134 048B 0156 0000 0000 0000 0000 0000 0000
      / 11AF 6100 0600 0000 0000 0156 4100 0702 0300 4200 0004 FFE5
      / 090D 31
    07-02-13/11 H 28 MN 42 EVT=00 :MISE HS (FAUTE)
      /AM = SMB14 ETAT=ES   AF=PUPE6
      / 0200 0702 1311 2842 048D 0157 0000 0000 0000 0000 0000 0000
      / 11AF 6100 0600 0000 0000 0157 4100 0802 0300 4200 0004 FFE5
      / 090D 31
    07-02-20/01 H 16 MN 09 EVT=24 :DIFF.ETAT SYS ES
      / 0218 0702 2001 1609 0000 0000 0000 0000 0000 0000 0000 0000
      / 10AF 10
    07-02-27/12 H 12 MN 10 EVT=24 :DIFF.ETAT SYS ES
      / 0218 0702 2712 1210 0000 0000 0000 0000 0000 0000 0000 0000
      / 10AF 8000 0010 00FF FF

voila
à ajouter tous ces données la sont dans un fichiers .txt

**Jedai** · 30/04/2007, 16h55

Dans ce cas, un truc comme ça devrait aller :

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
46
47
48
49
50
51
52
53
#!/usr/bin/perl
use strict; use warnings;
 
my $basedir = 'C:/Documents and Settings/farid/Bureau/9cegetel';
 
open my($src),'<', "$basedir/test_out.txt"
   or die "E/S : $!\n";
 
open my($out), '>>', "$basedir/resultat.txt"
   or die "E/S : $!\n";
 
# liste des commandes
my @commands = qw(
  SRFIL
  ESMIN
  GLRIL
  ALAIL
  ANOIL
  NSSIN
  DMPIL
);
 
# construction de la regex pour reconnaître l'une de ces commandes
# en début de ligne (éventuellement après quelques espaces/tabulations)
# on capture la commande utilisée
# aspect final de la regex : m/^\s*(SRFIL|ESMIN|...|DMPIL)/
my $rx_string = join '|', map { quotemeta $_ } @commands;
my $rx_commands = qr/^\s*($rx_string)/;
 
 
# variable d'état pour savoir si l'on se trouve dans un paragraphe
# qu'on veut imprimer ($in == 2), après une commande ($in == 1),
# ou en dehors de tout cela ($in == 0)
my $in = 0;
while(<$src>){
    if( not $in and my ($cmd) = (m/$rx_commands/) ) {
        print $out "$cmd:\n\n";
        $in = 1;
    }
    elsif( $in == 1 and m/^\s*TRAITEMENT TDRHM0 ACC/ ) {
        $in = 2;
    }
    elsif( $in == 2 and m/^\s*TRAITEMENT TDRHM0 EXC/ ) {
        $in = 0;
        print $out "\n\n";
    }
    elsif( $in == 2 ) {
        print $out $_;
    }
}   
 
close $src;
close $out;

Remarque le flux type "machine à état" pour la boucle de lecture, ce n'est pas toujours nécessaire, mais ça marche toujours, c'est propre, facile à comprendre lorsqu'on a l'habitude et efficace.

--
Jedaï

**mariafan** · 30/04/2007, 17h28

merci beaucoup pour le code, surtout que c'est bien documenté.
je l'ai pas encore testé mais il me parait que ça devrai marché.
encore merci beaucoup

**mariafan** · 03/05/2007, 17h35

merci beaucoup pour votre aide.

problème regex please

Langage Perl

Discussions similaires

Partager

Partager