expression régulière en perl

Bonjour,

Je débute en programmation et découvre le langage perl. Je suis actuellement bloqué à cause d'une expression régulière que je n'arrive pas a trouvé.
Voici ce que je souhaite faire:
- récupérer dans cette phrase les résultats que je vous met entre parenthèse:
---------------------------------
Optimum: (48) in (16) backtracks and (18) nodes and (0.05) seconds.
---------------------------------
- j'ai fais ceci qui ne fonctionne pas::?
---------------------------------
if ( $_=~m/[Optimum: ](\d+)[ in ](\d+)[ backtracks and ](\d+)[ nodes and ](\d+.\d+)[ seconds.]/)
---------------------------------
Il me semble pourtant avoir respecté la syntaxe. Si quelqu'un pouvait m'aider à avancer j'en serais heureux.:lol:
Merci

Bonjour,

Il faudrait reprendre les bases des expressions régulières car il y a des incohérences dans ton expression.

Par exemple :
Quand tu écris :

Code:

---

1 2	[Optimum: ]

---

Quand on met entre crochets des lettres-chiffres etc., Perl l'interprete comme une classe de caractères : dans ton exemple il cherchera soit un O majuscule, soit un p ou un i ... ou le symbole :. Si tu veux matcher le mot Optimum, il faut écrire :

Code:

---

1 2	if ($_ =~ /Optimum/)

---

De plus, fais attention au caractères spéciaux comme le ., les parenthèses etc.. Si tu veux matcher un . tu dois soit l'échapper avec un "\", soit le mettre dans une classe

Code:

---

1 2	if($_ =~ /seconds\./)

---

ou

Code:

---

1 2	if($_ =~ /seconds[.]/)

---

Avec ceci et quelques révisons sur les bases des expressions régulières, tu devrais pouvoir t'en sortir. Dans le cas contraire, moi ou quelqu'un pourra te donner la réponse à ton problème mais le mieux est que tu cherches encore un peu ;)

Merci et oui effectivement je manque de pratique.
En fait j'ai dissocié chaque élément que je cherchais pour obtenir le résultat que je souhaitais. Et ca fonctionne! En revanche il est vrai que j'ai abusé avec les crochets! Je vais tout reprendre depuis le début et merci encore pour ton aide.

Voila ce que j'ai fait:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

if($_=~m/(Optimum:)\s(\d+)/){ $Optimum= $2;   if($_=~m/(\d+)\s+(backtracks)/){ $backtracks= $1; } else { $backtracks='-'; } if($_=~m/(\d+)\s+(nodes)/){ $nodes= $1; } else { $nodes='-';} if($_=~m/(\d+.\d*|\d+)\s+(seconds.)/){ $seconds= $1; } else { $seconds='-';}

---

Je pense qu'il doit y avoir plus simple mais le temps me manque pour poursuivre, je verrais ce week-end.
Merci Beniou tu es bien le seul à m'avoir répondu!:P

Code:

---

1 2 3 4

if( /Optimum: (\d+) in (\d+) backtracks and (\d+) nodes and ([\d.]+) seconds/ ) { my ($Optimum, $backtracks, $nodes, $seconds) = ($1, $2, $3, $4) ; }

---

il y a certainement plus concis encore...

En plus concis :

Code:

---

1 2 3 4

my $s = "Optimum: 48 in 16 backtracks and 18 nodes and 0.05 seconds."; my @val = $s=~/\s([\d\.]+)\s/g; say for (@val)

---

Merci pour vos réponse. A bientot si je galère encore, ce que je ne souhaite pas mais qui va surement arriver.
:ccool: