Bonjour,
j'ai un probleme de perl pour traiter la chaine caractere

si il y $str = " un1 +deux2 -trois3"
je veux supprimer le mots qui commence par -

mon code ne marche pas,quelle est mon probleme

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
$str = " un1 +deux2 -trois3"
	my $req ="";
	print "$req\n";
	while($str= ~/([\+\-])?([0-9A-Z]+)/){
		if($1 && ($1 eq '-')){
		}
		else{
			$req .= ''. $2;
		}	
	}
	print "$req\n";