and it worked just fineuse strict; my @codesref = undef; $codesref[0] = sub {print "SUB 1\n";}; $codesref[1] = sub {print "SUB 2\n";}; foreach my $code (@codesref){ $code->(); }
In reply to Re^2: subroutine concatenation
by imcsk8
in thread subroutine concatenation
by imcsk8
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |