Question

Can I have a Perl array with subroutines as its members?
I have subroutines of following type:

sub CheckForSprintfUsage {
  my ($line, $fname, $linenum) = @_;  
  if ( $line =~ /\bsprintf\b/ ) {
    printError((caller(0))[3],$fname,$linenum);
  }
}

I want to add such subroutines into an array so that I can iterate over it and call them.

Answer 1

Insert references to subroutines into arrays:

my @array = (
    \&foo,
    \&bar,
    sub {
        # Do something inside anonymous subroutine
    },
    \&CheckForSprintfUsage,
);
$array[1]->();  # Call subroutine `bar`

Arguments can be passed as well:

$array[1]->( 'argument 1', 'argument 2' );