Discussion :

[cald83]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[50Nio]

Les déclarations suivantes fonctionnent:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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