bonjour,

je commence en perl, et je souhaite, lancer un script perl en ligne de commande avec des variables en ligne de commande.

essaie :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
perl mail.pl test="OK"
et le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/perl
# Ouvre un Pipe avec le commande mail (Unix)
open(MAIL,"|/usr/sbin/sendmail -t")     || die "Peut pas ouvrir sendmail : $!\n";
# Envoie les informations
print MAIL <<"EOF";
From: supertoto\@toto.com
To: toto\@toto.com
Subject: coucou
Mime-Version: 1.0\nContent-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
$test
Bonjour
EOF
close(MAIL);
mais la variable $test reste à vide.

Merci d'avance.