Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Re: URL linking within script

by chromatic (Archbishop)
on May 13, 2003 at 05:10 UTC ( #257641=note: print w/replies, xml ) Need Help??


in reply to Re: URL linking within script
in thread URL linking within script

I downvoted this post because it's wrong. Please test your advice if you're not sure:

#!/usr/bin/perl -w use strict; sub foo { print "foo\n" } my $f = 'foo'; &$f;

I generally prefer a dispatch table:

my %ops = ( one => \&one, two => \&two, ); my $op = $q->param( 'op' ); die "Invalid operation '$op'\n" unless exists $ops{ $op }; $subs{ $op }->();

You can also mess with can, though it's less secure -- with the ops hash you can control exactly which subs can ever be called.

my $op = $q->param( 'op' ); my $sub = __PACKAGE__->can( $op ); die "Invalid op '$op'\n" unless $sub; $sub->();

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://257641]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2020-07-02 17:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?