Code :
- #!/usr/bin/perl -w
- use strict;
- use CGI;
- my $cgi = new CGI;
- use CGI::Carp qw(fatalsToBrowser);
- my @noms_champ = $cgi->param();
- print $cgi->header();
- $cgi->start_html('avis CGI du programme '),
- $cgi->h1('avis CGI du programme ',$cgi->i('comments.pl'));
- foreach my $champ (@noms_champ) {
- print $cgi->b('nom de champ: '),
- $champ,
- $cgi->b(', contenu: '),
- $cgi->param($champ), "<br>";
- }
- print "coucou <br />";
- print $cgi->end_html();
|