--- fliptop <[EMAIL PROTECTED]> wrote:
> try doing this:
>
> use CGI;
> use Data::Dumper;
> my $Q = new CGI;
> my $ACTION = $Q->param('action') || '';
> print "ACTION: ", Dumper($ACTION);
>
> and see what you're getting for $ACTION
Perhaps even better would be to do this:
print Dumper( $Q );
That will generate output similar to the following:
$VAR1 = bless( {
'.charset' => 'ISO-8859-1',
'.parameters' => [
'name',
'color'
],
'.fieldnames' => {},
'color' => [
'red',
'blue'
],
'name' => [
'Ovid'
]
}, 'CGI' );
The '.parameters' key is an arrayref with all of the parameters that were passed.
Then, you see
separate keys, each mapped to an arrayref with valid values.
Cheers,
Curtis "Ovid" Poe
=====
"Ovid" on http://www.perlmonks.org/
Someone asked me how to count to 10 in Perl:
push@A,$_ for reverse q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split//;
shift@a;shift@a if $a[$[]eq$[;$_=join q||,@a};print $_,$/for reverse @A
__________________________________________________
Do You Yahoo!?
Check out Yahoo! Shopping and Yahoo! Auctions for all of
your unique holiday gifts! Buy at http://shopping.yahoo.com
or bid at http://auctions.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
