PHP PERL et regex

Version imprimable

PHP PERL et regex

Bonjour;

j'avais écrit cette regex :

Code:

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

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

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:

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 :calim2:

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

++Florent.

08/07/2009, 11h32
s.n.a.f.u

Salut,

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

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:

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

08/07/2009, 13h45
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.

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

Code:

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:

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;

08/07/2009, 13h52
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.
08/07/2009, 13h59
s.n.a.f.u

Au passage :

Citation:

$/ 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... ;)

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

Code:

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;

08/07/2009, 14h14
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...