cgi-dev

Repository that serves as my CGI "scratchpad" to try things out.
git clone git://git.samirparikh.com/cgi-dev
Log | Files | Refs | README

register.cgi (308B) - raw


      1 #!/usr/bin/perl
      2 
      3 use strict;
      4 use warnings;
      5 use CGI;
      6 
      7 my $cgi = CGI->new;
      8 
      9 print $cgi->header( "text/plain;charset=iso-8859-1" );
     10 print "These are the results I received:\n\n";
     11 
     12 foreach my $name ($cgi->param) {
     13     foreach my $value ( $cgi->param( $name ) ) {
     14         print $name, ": ", $value, "\n";
     15     }
     16 }