Formulaire Perl/Cgi
From Tuxunix
Exemple
- Methode Get
Code
1.#!/usr/bin/perl 2. 3.# entree standard dans la variable $in 4.$in = $ENV{"QUERY_STRING"}; 5. 6.@champs = split(/&/,$in); 7. 8.foreach $_ (@champs) { 9. ($nom, $valeur) = split(/=/,$_); 10. $champs{$nom}=$valeur; 11.} 12. 13.print("Content-Type: text/html\n\n"); 14.# puis le document HTML 15.print <<"SORTIE"; 16. <HEAD><TITLE> Reponse </TITLE></HEAD> 17. <BODY> 18. <H2 ALIGN=CENTER>Reponse au questionnaire</H2> 19. <CENTER><TABLE BORDER><TR> <TH>Nom du champ <TH>Valeur</TR> 20.SORTIE 21. 22.while (($nom, $valeur) = each(%champs)) { 23. print "<TR> 24. <Td>$nom </td> 25. <Td>$valeur</td> 26. </TR>"; 27.} 28.print "</TABLE></CENTER></BODY>";
- Formulaire PERL/CGI methode Post:
Exemple
- Methode Post
Code
1.#!/usr/bin/perl 2. 3.read(STDIN, $in, $ENV{CONTENT_LENGTH}); 4. 5.@champs = split(/&/,$in); 6. 7. 8.foreach $_ (@champs) { 9. ($nom, $valeur) = split(/=/,$_); 10. $champs{$nom}=$valeur; 11.} 12. 13.print("Content-Type: text/html\n\n"); 14.# puis le document HTML 15.print <<"SORTIE"; 16. <HEAD><TITLE> Reponse </TITLE></HEAD> 17. <BODY> 18. <H2 ALIGN=CENTER>Reponse au questionnaire</H2> 19. <CENTER><TABLE BORDER><TR> <TH>Nom du champ <TH>Valeur</TR> 20.SORTIE 21. 22.while (($nom, $valeur) = each(%champs)) { 23. print "<tr> 24. <td>$nom </td> 25. <td>$valeur</td> 26. </tr>"; 27.} 28.print "</TABLE></CENTER></BODY>";
