Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: URL linking within script

by pzbagel (Chaplain)
on May 13, 2003 at 05:02 UTC ( #257638=note: print w/replies, xml ) Need Help??


in reply to URL linking within script

Move the four sub definitions to the top of your script and strict should stop complaining.

Update: Uhhh...okay, that was way off. What was I thinking?:P

I guess what you really need is a:

no strict "refs";

in there.

Sorry bout that...

Replies are listed 'Best First'.
Re: Re: URL linking within script
by chromatic (Archbishop) on May 13, 2003 at 05:10 UTC

    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://257638]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (3)
As of 2020-07-06 03:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?