Discussion :

[floanne]

Bonjour;

j'avais écrit cette regex :

Code :

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

m/((?:^\s*CARD\s+\d+\s+ALARM\s+STATUS.*$\n(?:^.*$\n){2})*)/m

Pour matcher un truc dans ce genre (dans un log)

Code :

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

1
2
3
4
5
6
    CARD 1217 ALARM STATUS = No Alarms.
      DSM PORT A:      ALARM STATUS       = No Alarms.
      DSM PORT B:      ALARM STATUS       = No Alarms.
    CARD 1317 ALARM STATUS = No Alarms.
      DSM PORT A:      ALARM STATUS       = No Alarms.
      DSM PORT B:      ALARM STATUS       = No Alarms.

Sur le site http://lumadis.be/regex/test_regex.php
ça marche très bien, mais dans mon script Perl ça ne marche pas du tout.

J'ai donc écrit une autre regex :

Code :

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

m/^((?:\s*CARD\s+\d+\s+ALARM\s+STATUS.*\n.*\n.*\n)+)/m

Qui elle marche...

J'ai donc résolu mon problème... Mais sans comprendre pourquoi

Si quelqu'un pouvait m'expliquer... J'ai horeur de programmer "au hazar"...

++Florent.

[s.n.a.f.u]

Salut,

C'est quoi le but du jeu, que veux-tu capturer ?

[s.n.a.f.u]

En attendant de savoir si cela correspond à ton besoin, j'ai simplifié la regex, mais je ne sais pas si c'est ce que tu cherches à obtenir.

Code perl :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/perl
use warnings;
 
$str = "CARD 1217 ALARM STATUS = No Alarms.
      DSM PORT A:      ALARM STATUS       = No Alarms.
      DSM PORT B:      ALARM STATUS       = No Alarms.
    CARD 1317 ALARM STATUS = No Alarms.
      DSM PORT A:      ALARM STATUS       = No Alarms.
      DSM PORT B:      ALARM STATUS       = No Alarms.";
 
while ( $str =~ m/\s* ( CARD \s+ \d+ \s+ ALARM \s+ STATUS .* )/gx ) {
 
    print "$1\n";
}

=> et déplaçons-nous chez les mongueurs...

[floanne]

Le but du jeu est de capturer tout l'extrait en une seul fois (sachant qu'il y a d'autre info avant et après le bloc que j'ai posté evidemment). Ma 2eme regex marche très bien mais je comprends pas pourquoi la première ne donne pas le même résultat...

Le but de ma question est de comprendre, pas de faire un truc qui marche

Merci de ta réponse.
++Florent.

[s.n.a.f.u]

Mais elle marche comment ?
Parce que ceci par exemple ne me donne que le premier bloc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use warnings;
 
$str = "CARD 1217 ALARM STATUS = No Alarms.
      DSM PORT A:      ALARM STATUS       = No Alarms.
      DSM PORT B:      ALARM STATUS       = No Alarms.
    CARD 1317 ALARM STATUS = No Alarms.
      DSM PORT A:      ALARM STATUS       = No Alarms.
      DSM PORT B:      ALARM STATUS       = No Alarms.";
 
$str =~ m/^((?:\s*CARD\s+\d+\s+ALARM\s+STATUS.*\n.*\n.*\n)+)/m;
 
print $1;

--- edit ---
J'ai les deux blocs si j'utilise une autre chaîne :

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
#!/usr/bin/perl
use warnings;
 
$str = "contenu avant
CARD 1217 ALARM STATUS = No Alarms.
      DSM PORT A:      ALARM STATUS       = No Alarms.
      DSM PORT B:      ALARM STATUS       = No Alarms.
    CARD 1317 ALARM STATUS = No Alarms.
      DSM PORT A:      ALARM STATUS       = No Alarms.
      DSM PORT B:      ALARM STATUS       = No Alarms.
contenu après";
 
$str =~ m/^((?:\s*CARD\s+\d+\s+ALARM\s+STATUS.*\n.*\n.*\n)+)/m;
 
print $1;

[floanne]

C'est à cause du dernier \n, ajoute un saut de ligne à la fin de la chaine et tout sera maché.

Merci pour ta réponse ultra rapide.

++Florent.

[s.n.a.f.u]

Au passage :

$/ est le séparateur d'enregistrements en entrée. Par défaut, $/ est un saut de ligne. Cette variable modifie l'idée que Perl se fait de ce qu'est une ligne, en particulier avec l'opérateur <> (parfois appelé readline() ).

=> problème dans le premier motif...

[s.n.a.f.u]

En faisant un peu respirer la regex, ça passe mieux :

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
#!/usr/bin/perl
use warnings;
 
my $str = "contenu avant
    CARD 1217 ALARM STATUS = No Alarms.
      DSM PORT A:      ALARM STATUS       = No Alarms.
      DSM PORT B:      ALARM STATUS       = No Alarms.
    CARD 1317 ALARM STATUS = No Alarms.
      DSM PORT A:      ALARM STATUS       = No Alarms.
      DSM PORT B:      ALARM STATUS       = No Alarms.
contenu après";
 
$str =~ m/( (?:^\s* CARD \s+ \d+ \s+ ALARM \s+ STATUS .*$ \n (?:^.*$ \n){2} )+ )/mx;
 
print $1;

[Philou67430]

Je n'ai pas d'explication raisonnable, mais une piste pour comprendre serait de considérer l'expression régulière suivante, qui elle, fonctionne à peu près comme tu le souhaiterais :
m/((?:^\s*CARD\s+\d+\s+ALARM\s+STATUS.*$(?:\n^.*$){2})+\n)/m

Edit : S.n.a.f.u a trouvé mieux...