Problème Variable lors de l'envoi d'email par script

Bonjour,

J'ai un souci lors de l'interprétation du @ dans une variable.

J'exécute une sub pour l'envoi d'emails dans de mes scripts :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

sub sendemail { my ($to, $from, $subject, $message) = @_; my $sendmail = '/usr/sbin/exim4'; open(MAIL, "|$sendmail -oi -t"); print MAIL "From: $from\n"; print MAIL "To: $to\n"; print MAIL "Subject: $subject\n\n"; print MAIL "$message\n"; close(MAIL); }

---

Voici la commande qui exécute la sub :
&sendemail($useremail, 'toto@toto.ch', "subject 2", "test2");

Le problème c'est que le @ dans ma variable $useremail est interprété comme un array... Ce qui est normal ... Comment faire pour qu'il soit interpréter comme un simple caractère ?

Salutations

Les déclarations suivantes fonctionnent:

Code:

---

1 2	my $usermail = 'toto@unendroit.fr'; my $usermail = "toto\@unendroit.fr";

---

'expression' inhibe l'évaluation de expression avant l'exécution proprement dire.
\ "escape" le caractère suivant et évite qu'il soit interprété en tant que caractère spécial..

Sinon dans un de tes appels avant tu veux "escaper" ton @, tu peux utiliser:

Code:

---

1 2	$usermail =~ s/\@/\\\@/;

---

Bref, ça dépend d'où vient ta variable $usermail.