変数から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は何も出力しません



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