サブルーチンを変数を使って呼び出したい。

お世話になります。

Perlでサブルーチンを呼び出す場合、 &hogehoge; としますが、
このhogehogeの部分に変数を持っていきたいのですが、
やり方が分からず困っております。
試しに &{$hensu}; とやってみましたが、動きませんでした。

何かやり方はありますでしょうか。
解決策をご存じの方、ご教授よろしくお願いいたします。

No.5 回答者： ___noboru___ 回答日時： 2005/12/20 21:07

Linux マシンで(bashから)これ試してみたら無事 Hello が出ましたよ。

perl -Mstrict -e 'my $name = "mysub"; my $s = \&{$name}; &$s("Hello"); sub mysub {print "$_[0]\n"}'

Perl のバージョンは v5.8.6 です。あと先にも書いた方法ですが、 eval 使ってもできましたよ。

perl -Mstrict -e 'my $name = "mysub"; eval qq(&$name("Hello")); sub mysub {print "$_[0]\n"}'

これはどちらも strict です。エラーは一切出ません。

この回答へのお礼

遅くなり申し訳ありません。
参考になりました。
ありがとうございます。

お礼日時：2006/01/18 10:56

No.4 回答者： hara_peko 回答日時： 2005/12/19 03:06

{

no strict "refs";
#必要な処理
}

・・・と、ブロックで囲んで必要な部分のみ無効にしてしまうとか。

No.3 ベストアンサー 回答者： osamuy 回答日時： 2005/12/17 14:42

サブルーチンへのリファレンスをハッシュに設定して、それをコールするのが素直と思われます。

こんな感じ：

use strict;
sub hogehoge( $ ){ print 'msg: ', $_[0], "\n"; }
my %Proc = ( 'hoge' => \&hogehoge );
my $call = 'hoge';
$Proc{ $call }->( 'test' );

この回答へのお礼

お礼が遅くなり申し訳ありません。
この方法を基にプログラミングできました。
誠に有り難うございました。

お礼日時：2006/01/18 10:55

No.2 回答者： ___noboru___ 回答日時： 2005/12/16 18:08

現在 Perl 5.8.6 で試してみましたが、&{$hensu} の方法で呼び出せました。

&{$hensu}() も同じです。

これがだめなら eval を使えばいいと思います。

例)
$hensu = 'hogehoge';
eval "&$hensu;";

この回答への補足

ご回答ありがとうございます。

#1さんの補足に書きましたが、strictモードでの状況下でした。
失礼いたしました。

補足日時：2005/12/16 20:09

No.1 回答者： galluda 回答日時： 2005/12/16 18:02

がると申します。

Perlの5.6系ですと、

#!/usr/bin/perl -w
sub foo
{
print "aaa \n";
}

my $a = "foo";
&{$a}();

というプログラムでちゃんと起動するのですが。
このプログラムを実行されるとどんな感じになりますでしょう？

この回答への補足

ご回答ありがとうございます。

失礼いたしました。
strict モードでの状況で動かないようです。
strict なしで動かしてみたところ、動作しました。
strict の場合、
> Can't use string ("hogehoge") as a subroutine ref
> while "strict refs" in use at index.cgi line 52.
と出てしまい、サブルーチンが実行されません。
perlのバージョンは5.8.5です。

strictで同じようなことを行える方法はありませんでしょうか？

補足日時：2005/12/16 20:02