Discussion :

[mamax29]

Bonjour,

j'ai une string qui peu prendre une des deux formes suivantes:

Code :

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

1
2
3
4
 
05-13-01-20-31   XY :13   TCB= F8700440   US= 00000000   SS= F8700D40   MS= F8700D40
ou
05-13-01-20-31   XY: 13   TCB= F8700440   US= 00000000   SS= F8700D40   MS= F8700D40

Après "XY" il y a le caractère ":" qui sera précédé ou succédé d'un espace

J'ai besoin d'extraire dans l'exemple ci-dessus, le chiffre 13 qui succède à XY

J'utilise la commande suivante:

Code :

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

1
2
 
($yy) = $string =~ m/XY\s:(.{2})|XY:\s(.{2})/;

mais dans le second cas (espace après les ":"), cela ne fonctionne pas et je n'arrive pas à trouver l'erreur.

[Dimitry.e]

Utilise plutôt une expression plus simple :

Code :

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

1
2
 
/XY\s*:\s*(\d+)/

[lilian_h]

Bonjour,

De mon coté je n'arrive pas à faire fonctionner ton expression régulière... Qu'est ce que tu as comme message ?

Sinon, j'ai essayé avec ça:

Code :

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

1
2
 
($yy) = $string =~ /XY[^0-9]*([0-9]{2}).*/;

Lilian.

[Philou67430]

La regexp de dimitry placée dans l'expression de mamax fonctionne pourtant parfaitement :

Code :

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

1
2
$string = "05-13-01-20-31   XY :13   TCB= F8700440   US=00000000   SS= F8700D40   MS= F8700D40";
($yy) = $string =~ /XY\s*:\s*(\d+)/;

[mamax29]

Merci à tous pour vos propositions

Bon, comme c'est le week end, cela attendra donc lundi.

@lilian_h
Dans le cas qui ne fonctionne pas, je n'ai pas de messages d'erreur, c'est juste que le prog me retourne rien dans $xy.