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.