"Tom Phoenix" schreef: > my %table = ( > cat => \&cat, > jackalope => \&jackalope, > yeti => \&yeti, > );
An alternative is to build that with eval:
my %table;
eval '$table{' . $_ . '} = \&' . $_
for qw(cat jackalope yeti);
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
