PERL extraction

Fermé
sbouli Messages postés 200 Date d'inscription jeudi 20 décembre 2007 Statut Membre Dernière intervention 14 août 2014 - 13 juil. 2010 à 18:38
sbouli Messages postés 200 Date d'inscription jeudi 20 décembre 2007 Statut Membre Dernière intervention 14 août 2014 - 15 juil. 2010 à 10:45
Bonjour,

je ne comprend pas pourquoi le code suivant ne fonctionne pas
$email_to=$paquet->{$id_ligne}{email_to};
print "\temail_to : ".$email_to."\n";
$debut_email = $email_to =~ /(.*)@/;
print "\tdebut_email : ".$debut_email."\n";


resultat :
email_to : superemail@domaine.fr
debut_email : 1

j attendais : superemail dans $debut_email

.....

merci de votre aide
stephane

1 réponse

sbouli Messages postés 200 Date d'inscription jeudi 20 décembre 2007 Statut Membre Dernière intervention 14 août 2014 2
15 juil. 2010 à 10:45
solution

$email_to=$paquet->{$id_ligne}{email_to};
print "\temail_to : ".$email_to."\n";
($debut_email) = $email_to =~ /(.*)@/;
print "\tdebut_email : ".$debut_email."\n";
0