Storing a subroutine pointer inside a variable?

[yitzle]

Can you pass a subroutine as a string or pointer or store it inside a variable?
example (probably doesn't work, but that's not the point):

#!/usr/bin/perl

sub func1 {
  my $i = shift;
  return $i =~ /^[0-9]+$/;
}

sub func2 {
  my $i = shift;
  return $i =~ /^[a-z]+$/;
}

sub test {
  my ($function, $description, $var, undef) = @_;
  print $description . ": ";
  print {$function}($var) ? "Yes\n" : "No\n"; # Not even sure Perl
will allow this if operator like this...
}

my $input = <>;
test("func1", "Numeric", $input);
test("func2", "Lower", $input);

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/