Perl サブルーチン実行方法

Question

Perlモジュール内にあるサブルーチンを呼び出す際、変数内の文字列をサブルーチンとして呼び出す方法ってあるのでしょうか？

sub main {
  my $test = getInfo;
  my $result = $test;
}

sub getInfo {
  return "aaaaaa"
}

上記の方法だとうまくいかないのは当然なのですが
何かよい方法はございますでしょうか。

Answer 1

次でいけます。

my $test = &{'::getInfo'}();

グローバルスコープの場合は ::をつければいいです。

以下追記

元のコードに合わせるなら、こんな感じでしょうか。

sub main {
  my $test = "::getInfo";
  my $result = &{$test}();
}

sub getInfo {
  return "aaaaaa"
}

Answer 2

サブルーチンの呼び出し方の方はいろいろありますが、
代入自体は、グロブを使えばいいだけです。

sub main {
    my $test = *getinfo ;
    print $test->() . "\n" ;
}

Answer 3

evalを使ってみるとか。

sub main {
  my $test = "getInfo";
  my $result = eval{&$test};
}

sub getInfo {
  return "aaaaaa"
}

Answer 4

勘違いにて削除しました。