A voir également:
- Envoi de formulaire en cgi avec perl
- Formulaire de réclamation facebook - Guide
- La poste est prête à prendre en charge votre envoi. dès qu'il nous sera confié, vous pourrez suivre son trajet ici. - Forum Consommation & Internet
- Mainlevée de l’envoi international - Forum Consommation & Internet
- Envoi traite au depot de distribution ✓ - Forum Consommation & Internet
- Votre envoi est réacheminé vers son site de distribution - Forum Consommation & Internet
2 réponses
j'ai fait mon programme perl mais il ne fonctionne pas je veux inscrire les reponses dans le fichier et afficher a l'utilisateur que ça a bien ete enegistré
#!/usr/bin/perl
require "cgi.lib.pl";
ReadParse();
$pseudo=$param('pseudo');
$mail=$param('mail');
$age=$param('age');
$fan=$param('fan');
$annee=$param('annee');
open FICHIER, ">>reponse.txt"|| die "Probleme a l'ouverture";
print (FICHIER,"pseudo : $pseudo \n");
print (FICHIER,"adresse e-mail : $mail \n");
print (FICHIER,"age : $age \n");
print (FICHIER,"fan : $fan \n");
print (FICHIER,"annee de premiere ecoute : $annee \n \n");
close FICHIER;
print "Votre questionnaire est enregistré!";
#!/usr/bin/perl
require "cgi.lib.pl";
ReadParse();
$pseudo=$param('pseudo');
$mail=$param('mail');
$age=$param('age');
$fan=$param('fan');
$annee=$param('annee');
open FICHIER, ">>reponse.txt"|| die "Probleme a l'ouverture";
print (FICHIER,"pseudo : $pseudo \n");
print (FICHIER,"adresse e-mail : $mail \n");
print (FICHIER,"age : $age \n");
print (FICHIER,"fan : $fan \n");
print (FICHIER,"annee de premiere ecoute : $annee \n \n");
close FICHIER;
print "Votre questionnaire est enregistré!";