Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Re: passing arguments in a dispatch table

by CharlesClarkson (Curate)
on Apr 29, 2002 at 02:45 UTC ( [id://162750]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub process {
        my ( $choice, $book ) = @_;
    ...
    
        print &{ $dispatch->{ $choice } };
    }
    
  2. or download this
    BEGIN {
        open FH, 'my_db' or die "Cannot open my_db: $!";
        my @book = split /,/, <FH>;
        sub address_book { return \@book }
    }
    

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others exploiting the Monastery: (5)
As of 2024-03-29 12:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found