Bonjour,

Le script ci-dessous affiche dans mon navigateur les données laissées
dans mes formulaires.

Est-il possible de modifier simplement ce script pour qu'il n'affiche plus
ces données dans mon navigateur mais qu'il les envoie vers ma boîte mels ?

Merci d'avance pour votre aide.

ALAIN

------------------------------------------------------------
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
16
17
18
19
20
21
22
23
24
25
26
27
#!/usr/bin/perl
 
print "Content-type: text/html\n\n";
 
print "<html>\n<head>\n<title>decodage</title>\n</head>\n";
print "<body>\n";
 
read(STDIN, $donnees, $ENV{CONTENT_LENGTH});
 
@tab = split("&", $donnees);
%commande = ();
 
foreach $i (@tab){
($nom, $valeur) = split("=", $i);
$nom =~ s/%(..)/pack("c", hex($1))/ge;
$valeur =~ s/%(..)/pack("c", hex($1))/ge;
$valeur =~ s/\+/ /g;
$commande{"$nom"} = $valeur;
}
 
print "<H1>Votre commande</H1><HR>";
print "$commande{'nourriture'}<BR>";
print "pour $commande{'nombre_personnes'} personnes <BR>";
print "livr&eacute; &agrave; $commande{'heure_livraison'} heures<BR>";
print "&agrave; l'adresse : <BR> $commande{'adresse'}<BR>";
 
print "</body></html>";
----------------------------------------------------