CharlesClarkson has asked for the wisdom of the Perl Monks concerning the following question:
I perused perlmonks and google in search of a dispatch table. The examples I found didn't pass arguments with the named subroutines. I think I have it solved, but would like confirmtion.
Two questions:#!/usr/bin/perl -w use strict; $|++; my $fruit = [ qw|apple orange pear| ]; my $dispatch = { add => sub { return add_entry( $fruit ) }, }; print scalar localtime, "\n"; sleep 1; print &{ $dispatch->{add} }, " <-- from sub \n";; sleep 1; print scalar localtime, "\n"; sub add_entry{ print scalar localtime, " <-- in sub \n"; sleep 1; return scalar localtime; } __END__ produces: Sat Apr 27 19:00:21 2002 Sat Apr 27 19:00:22 2002 <-- in sub Sat Apr 27 19:00:23 2002 <-- from sub Sat Apr 27 19:00:24 2002
- Is the test valid?
- Am I missing some pitfall that will bite me later?
Thank You,
Charles K. Clarkson
Clarkson Energy Homes, Inc.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: passing arguments in a dispatch table
by abstracts (Hermit) on Apr 28, 2002 at 02:41 UTC | |
by CharlesClarkson (Curate) on Apr 28, 2002 at 06:19 UTC | |
by BUU (Prior) on Apr 28, 2002 at 08:06 UTC | |
Re: passing arguments in a dispatch table
by rinceWind (Monsignor) on Apr 28, 2002 at 10:23 UTC | |
by CharlesClarkson (Curate) on Apr 29, 2002 at 02:45 UTC | |
by abstracts (Hermit) on Apr 29, 2002 at 03:12 UTC | |
by CharlesClarkson (Curate) on Apr 29, 2002 at 06:06 UTC | |
Re: passing arguments in a dispatch table
by samtregar (Abbot) on Apr 28, 2002 at 01:56 UTC | |
by CharlesClarkson (Curate) on Apr 28, 2002 at 06:36 UTC |
Back to
Seekers of Perl Wisdom