PERL extraction

sbouli Messages postés 200 Date d'inscription   Statut Membre Dernière intervention   -  
sbouli Messages postés 200 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

Réponse 1 / 1
sbouli Messages postés 200 Date d'inscription   Statut Membre Dernière intervention   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";
0

Discussions similaires

Winrar - Problème extraction volume précédent
Yoruic -
NeiluJ -

19 réponses
Erreur des dossiers compressés
Lutty-Chan -
gbinforme -

1 réponse
probleme d'extraction winrar/winzip
Ayor23 -
0696939132 -

27 réponses
Désinstallation impossible
SuperPat -
Jolebarjo -

4 réponses
extraction erreur d'écriture du fichier C:/User/user/appdata/local
winnie23 -
billmaxime -

33 réponses