#!/usr/bin/perl -Tw use strict; use CGI; our $q = CGI->new(); our %FORM; sub parse_form { # Get the input foreach my $p ($q->param()) { $FORM{$p}=$q->param($p); } } parse_form(); print "Content-type: text/plain\n\n"; while(my($k,$v)=each(%FORM)) { print "$k: $v\n"; }
Updated: Fix error (shouldn't use both :standard and create a CGI object) and add enough code to make this a complete, testable program.
In reply to Re: Using CGI param method
by sgifford
in thread Using CGI param method
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |