Discussion :

[etplus]

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

[Jedai]

Il y a plusieurs solutions... L'un des problèmes de la tienne c'est que [A-Z] ne couvre que les majuscules et que tu n'as pas utilisé /i pour rendre la regexp insensible à la casse, or "trois" est en minuscules jusqu'à nouvel ordre...

Une solution serait :

Code :

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

(my $req = $str) =~ s/\+|-\w+ ?//g;

--
Jedaï