Discussion :

[petogo]

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 :

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

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 ";
                }
       }

[Jiheme44]

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

[Philou67430]

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

Code :

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

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";
}

[Philou67430]

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.

[Jiheme44]

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
circonstance aggravante : je n'avais pas encore pris mon café.

[petogo]

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