http://www.url.com/cgi-bin/file.pl?node=how

surrealistfashion has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: http://www.url.com/cgi-bin/file.pl?node=how by smitz (Chaplain) on Sep 09, 2003 at 13:30 UTC
Hi, Your first code snippet contains `my $node; if ($node eq...` [download] Is this a typo? `$node` will always `eq undef` in this case. Did you mean `my $node = param('node')` [download] You could do it something like this: (untested code): `#!/usr/bin/perl use CGI; my $node = param('node'); my %lookup_table = (how => 'how_sub', foo => 'foo_sub'); if ($lookup_table{$node} ne '') { &{$lookup_table{$node}}; } else { print "Unknown sub called\n"; } sub how_sub {} sub foo_sub {}` [download] The `%lookup_table` and `if` routine makes sure users cant choose any old sub to run, just the ones you define in the `lookup_table`. Smitz	[reply] [d/l] [select]
Re: Re: http://www.url.com/cgi-bin/file.pl?node=how by surrealistfashion (Acolyte) on Sep 10, 2003 at 03:08 UTC
I was under the impression that having it $node undef was ok, if I declared it in the Url. I will try the lookup_table when I am off work tonight. With your code does the param('node') come from the Url? I have more reading to do :D Thanks	[reply]
Re: Re: Re: http://www.url.com/cgi-bin/file.pl?node=how by smitz (Chaplain) on Sep 10, 2003 at 07:32 UTC
Hi surrealistfashion, Yes you do have some more reading to do :-) Check out the following: CGI docs, in particular the bit about fetching the value of a single named parameter. Also check out the `my` keyword. (Summary under the readmore tag). Although you have the sub name in your URI, and the `CGI.pm` module has access to it, you have not 'imported' it into your program. Just by declaring it with `my` doesn't automatically give it the value you woul like. This isn't PHP you know ;-) Also, I ran the code I posted, it should work fine. Smitz Read more... (1179 Bytes)	[reply] [d/l] [select]
Re: http://www.url.com/cgi-bin/file.pl?node=how by Abigail-II (Bishop) on Sep 09, 2003 at 13:24 UTC
Shouldn't that be: `my $Page = param ("node");` [download] Abigail	[reply] [d/l]
Re: Re: http://www.url.com/cgi-bin/file.pl?node=how by surrealistfashion (Acolyte) on Sep 10, 2003 at 03:05 UTC
Yes, typo. In the script it is acually `my $UserName = param ('UserNameBlock');` [download] I have a tendency to type too fast and not sleep enough. thanks for your help :)	[reply] [d/l]
Re: http://www.url.com/cgi-bin/file.pl?node=how by naChoZ (Curate) on Sep 09, 2003 at 13:31 UTC
Plenty of useful reading around the monastary. Have a look at: Adding param to a specified URL Forms and CGIs And the Tutorials section contains more CGI docs. -- "I just read perlman:perlboot," said Tom, objectively. naChoZ	[reply]
Re: http://www.url.com/cgi-bin/file.pl?node=how by bear0053 (Hermit) on Sep 09, 2003 at 14:18 UTC
Try this: `use CGI; use CGI::Validate qw(:standard); my $Page = $cgi->param('node'); #$Page will now be assigned the value of the parameter node that was p +assed in the url` [download] There is also a way to ensure the param you are grabbing came from the url...i believe it is: `$cgi->url_param('node'); or $cgi->param_url('node');` [download] This is useful if you want to ensure the param you are grabbing was posted to the script	[reply] [d/l] [select]
Re: http://www.url.com/cgi-bin/file.pl?node=how by bbfu (Curate) on Sep 09, 2003 at 22:06 UTC
You might also want to check out CGI::Application. bbfu Black flowers blossom Fearless on my breath	[reply]
Re: http://www.url.com/cgi-bin/file.pl?node=how by surrealistfashion (Acolyte) on Sep 10, 2003 at 06:42 UTC
Thanks for all the help. Your help, alows me to manage professional and personell time in a very efficeint way. thanks.	[reply]