サブルーチンをメンバーとして持つ Perl 配列を使用できますか? 次のタイプのサブルーチンがあります。
sub CheckForSprintfUsage {
my ($line, $fname, $linenum) = @_;
if ( $line =~ /\bsprintf\b/ ) {
printError((caller(0))[3],$fname,$linenum);
}
}
そのようなサブルーチンを配列に追加して、反復処理して呼び出すことができるようにしたいと考えています。