probleme d expression réguliére avec regex

bonjour,
je chercher a recuperer des données d'une ligne de ce type:
chaine alphanumérique=entier
" abcd=123 bon45=4455 a=1"

Code:

---

1 2 3 4 5 6 7 8 9

my ($line) = @_; my @words = split( " ", $line ); for my $word (@words) { #print "$word |"; if ( $word =~ /(\W+)=([0-9]+)/ ) { print " $1 $2 "; } }

---

tu t'es juste trompé sur le quantifieur, c'est \w (en minuscule).

Si tu cherches à analyser une liste d'égalités séparées par des espaces, tu peux aussi utiliser split :

Code:

---

1 2 3 4 5

$string = "abcd=123 bon45=4455 a=1"; foreach my $affect (split /\s+/, $string) { my ($var, $val) = split /=/, $affect; print "Var: $var\tvalue $val\n"; }

---

Citation:

---

Envoyé par Jiheme44

tu t'es juste trompé sur le quantifieur, c'est \w (en minuscule).

---

Un détail : \w n'est pas un quantifieur (comme + ou * par exemple).
C'est une classe de caractère.

Citation:

---

Envoyé par Philou67430

Un détail : \w n'est pas un quantifieur (comme + ou * par exemple).
C'est une classe de caractère.

---

my bad, et pourtant c'est pas faute d'avoir le guide de programmation ouvert lors de ma réponse :aie:
circonstance aggravante : je n'avais pas encore pris mon café. :mouarf:

super merci,
Les réponses sont vraiment rapide et de qualité sur le forum perl, ça fait plaisir :p