PERL extraction

sbouli Messages postés 208 Statut Membre -
sbouli Messages postés 208 Statut Membre - 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

Afficher la suite

1 réponse

sbouli Messages postés 208 Statut Membre 2

solution

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

PERL extraction

1 réponse

Discussions similaires

Newsletters