PERL : au secours, exp reg nb variables [Fermé]

Signaler
Messages postés
200
Date d'inscription
jeudi 20 décembre 2007
Statut
Membre
Dernière intervention
14 août 2014
-
Bonjour,

Je ne comprend pas, dans un bout de code, j'ai changé
if ((($id, $from) = $msg =~/([^:]+): from=<([^>]+).*$/i) > 0) {
	$tableau{$id}=$from;
}


par

if ((($id, $from, $status) = $msg =~/([^:]+): from=<([^>]+)>, ?status=([^,]+)(.*)$/o) > 0) {
	$tableau{$id}=$from;
}


et je pensais donc avoir, quand l'expression status= était présente, un élément $status en plus, mais conserver les 2 autres quoi qu'il arrive

Or il semble que la condition ne soit pas remplis en cas d'abscence de status ... je croyais que c'était le boulot du >0 (pour moi tant qu'une seule des expressions est trouvée, c'est bon)


J'ai raté quoi encore ???

Merci d'avance.

Stéphane
PS : si c'est pas clair, n'hésitez pas à me le dire, je mettrais plus de détails voir si j'y parviens des exemples ....