Discussion :

[aikinhdo]

Bonjour,

Pourriez vous me dire comment je peux faire pour extraire des motifs suivante ?

Code :

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

1
2
3
4
5
6
7
8
9
 
 
$toto = "pl apps-mqm-01  apps-mqm     ENABLED  ACTIVE   20480    CONCAT    -        RW" ;
 
        if ( $toto =~ /^pl/ )
        {
        ($plex,$volname,$logno) = ( $toto =~ /pl (.*(-\d+)?)\s+(.+)\s+[A-Z]+ [A-Z]+ ([0-9A-Z]+).*/ ) ;
        print "** $plex** **$volname\n**" ;
        }

Je n'arrive pas à extraire : apps-mqm-01; apps-mqm; 20480.

Sachant que apps-mqm-01 peut aussi prendre la forme de 02-apps-mqm01-02.

Sachant que apps-mqm peut aussi prendre la forme de apps_ae-01mqm_12

Je recherche une expression "assez" large pour permettre d'extraire ces 2 premiers variable.

Merci pour votre aide. Ca fait un moment que je me creuse la tête sans résultat.

[djibril]

cadeau :

Code :

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

1
2
3
my $toto = "pl 02-apps-mqm01-02  apps-mqm     ENABLED  ACTIVE   20480    CONCAT    -        RW" ;
my @apm = $toto =~ / (.+?apps\S+)/gi;
print "@apm\n";

[aikinhdo]

Bonjour,

Merci.

Désolé. Je me suis mal exprimé. La ligne toto n'a pas forcément "apps" comme contenu.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
$toto = "pl 8apreps-m-06_qm-01  apps-m56_DR_qm-23     ENABLED  ACTIVE   20480    CONCAT    -        RW" ;
 
 
        if ( $toto =~ /^pl/ )
        {
        ($plex,$volname,$logno) = ( $toto =~ /pl (.+?)\s+(.*?)\s+[A-Z]+\s+[A-Z]+\s+([0-9A-Z]+).*/ ) ;
 
        print "** $plex** **$volname** **$logno**\n" ;
        }

J'ai comme résultat 8apreps-m-06_qm-01; apps-m56_DR_qm-23; 20480.

Mais je trouve que mon expression est un peu "moche"

Est ce que vous pouvez me dire comment je peux faire mieux, j'ai lu avec les référence arriere, mais j'ai un peu de mal.

[djibril]

faut nous dire ce que tu veux exactement, car c'est en fonction de ta demande que la regex sera ecrite.

[aikinhdo]

Je veux juste récuperer les champs $2, $3 $6.
Donc : 8apreps-m-06_qm-01; apps-m56_DR_qm-23; 20480.

merci

[Jedai]

Dans ce cas, contente toi d'utiliser split :

Code :

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

1
2
3
4
5
6
my $toto = "pl apps-mqm-01  apps-mqm     ENABLED  ACTIVE   20480    CONCAT    -        RW" ;
 
if ( $toto =~ /^pl/ ) {
        my ($plex,$volname,$logno) = (split /\s+/, $toto)[1, 2, 5];
        print "** $plex** **$volname\n**" ;
}

Et apprends à utiliser les pragma "strict" et "warnings", ça t'éviteras beaucoup de problèmes à l'avenir.

--
Jedaï