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