変数からPerlでユーザー定義関数を呼び出す

はい、私はそのような倒錯をする必要がありました。 PHPでは、これはcall_user_func（）です。

Googleでは実装が非常に難しいと思っていたことを考慮して（そして、私が期待していた場所ではなく、電話で）、ここに公開することにしました。

#!/usr/bin/perl -w
use strict;
if(exists $ARGV[0] && exists &{$ARGV[0]}){
my $func_call = \&{$ARGV[0]};
&$func_call();
}
sub test{
print "123\n";
}


それに応じて

./test.pl testは123を出力します
./test.pl aaaは何も出力しません

たぶん誰かが役に立つでしょう）