MeowChow                                   
               s aamecha.s a..a\u$&owag.print

my @list=('test', 'Hello!');

my $func_name=shift @list;

&$func_name(@list);

sub test {
print @_;
}
[download]

To my suprise, this works fine.

____________________
Jeremy
I didn't believe in evil until I dated it.

Fails on use strict though, because you're using a symbolic reference.

-- Randal L. Schwartz, Perl hacker

Merlyn, how bad is it to do:

use strict;
no strict 'refs';
[download]

From your post it sounds as though you disapprove, is this so? I'm concerned as I use jump tables quite often. AFAIK this isn't possible without undoing strict refs. Is there another way of doing jump tables? Or a healthier alternative?

--

Brother Frankus.

¤

I want to be able to run

table({rows => '2'}, "Cell 1", "Cell", "Blah, blah");
[download]

prompt:) table {rows => '2'}, "Cell 1", "Cell", "Blah, blah"
[download]

[ [ "Blah", "Blah" ], [ "Blah", "Blah" ] ]

"Blah, Blah, Blah"

[ [ "Baz", [ { Wow => "that's Nesting" }, "Bar" ], "foo" ],
[ "More", "Too lazy to be creative", "More here" ] ]
[download]

- p u n k k i d
"Reality is merely an illusion, albeit a very persistent one." -Albert Einstein

eval is the easiest way to do this, since you don't end up with your own mini-language to parse; just let perl do it. Here's a very primitive command-line example:

% perl -MData::Dumper -nwe 'chomp; 
  ($sub, $rest) = split / +/, $_, 2; 
  eval "$sub($rest)"; print $@ if $@; print "\n) " } 
  BEGIN { sub spew { print Dumper(@_) } print ") "'
[download]

Presumably you'll have more functions defined than that; consider using Term::Readline or similar if this is something that'll be used a lot.

hdp.