Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

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?

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (2)
As of 2021-03-05 01:04 GMT
Find Nodes?
    Voting Booth?
    My favorite kind of desktop background is:

    Results (108 votes). Check out past polls.