Re: (jeffa) Re: Lost Values from parse

OK I appreciate the simplicity of the importing of the param info into the hash, and I see now that I was receiving the values but not accessing them correctly. This leads me to a couple of questions:

Was I making an anonymous hash with my sub? That would explain why the variables were undef, because they were really vars, just hash keys right?
So how would I add a line(s) so that the sub would automatically translate param( 'this' ) into $this and assign the value it received? I guess I should use map on the hash keys and values somehow? I realize the 'right' way is probably just to use the hash as it is, but I really like having $foo = "bar" to work with.

Any help greatly appreciated.
TIA
jg
_____________________________________________________
It's not my tree.

Comment on Re: (jeffa) Re: Lost Values from parse_form Sub Select or Download Code

Replies are listed 'Best First'.
(jeffa) 3Re: Lost Values from parse_form Sub by jeffa (Bishop) on Mar 10, 2002 at 18:03 UTC
First question: no, the hash was not anonymous, you named it $sr - it is, however, a hash reference. Second question: don't do that!! The right way is indeed to use a hash, but here is the wrong way just for you: (and notice no use strict) `use CGI; # don't use ':standard' unless you don't want OO CGI.pm my $q = CGI->new(); $$_ = $q->param($_) for $q->param(); print "$foo and $bar\n";` [download] This works when run like so: $ perl foo.cgi "foo=baz&bar=qux" baz and qux But using symbolic references is bad practice. Please, for your sanity down the road, stick with hashes to store 'dynamic' variable names. jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l]

Replies are listed 'Best First'.

(jeffa) 3Re: Lost Values from parse_form Sub
by jeffa (Bishop) on Mar 10, 2002 at 18:03 UTC

reference

Second question: don't do that!!

The right way is indeed to use a hash, but here is the wrong way just for you: (and notice no use strict)

use CGI;  # don't use ':standard' unless you don't want OO CGI.pm

my $q = CGI->new();

$$_ = $q->param($_) for $q->param();

print "$foo and $bar\n";
[download]

$ perl foo.cgi "foo=baz&bar=qux"
baz and qux

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

[reply]
[d/l]