Help for this page

Select Code to Download


  1. or download this
    my $name = "do";
sub do { print "I am doing it\n"; }
&$name;
  2. or download this
    my $name = "do";
sub do { print "I am doing this now\n"; }
$name->();
  3. or download this
    $name = \& {"main::$name"};
&$name;
  4. or download this
    sub foo {
    print "Doing foo (whatever that means)\n";
}
...
foreach ( qw (foo bar foobar ) ) {
    $sub_table{$_}->();
}