私はそうのようなperlのスクリプト（簡易）を持っているPerlの

Question

でメソッド名として変数を使用：基本的に

my $dh = Stats::Datahandler->new(); ### homebrew module 

my %url_map = (
    '/(article|blog)/' => \$dh->articleDataHandler, 
    '/video/' => \$dh->nullDataHandler, 
); 

、私は%url_mapをループするつもりだ、と現在のURLがキーと一致した場合そのキーの値によって指さ私は関数を呼び出したい：

foreach my $key (keys %url_map) { 
    if ($url =~ m{$key}) { 
     $url_map{$key}($url, $visits, $idsite); 
     $mapped = 1; 
     last; 
    } 
} 

しかし、私はメッセージを取得しています：

Can't use string ("/article/") as a subroutine ref while "strict refs" in use at ./test.pl line 236.

行236は、行$url_map{$key}($url, $visits, $idsite);になります。

私はこれまで同様のことをしてきましたが、私は通常、モジュールを使わずに関数にパラメータを渡しています。

Answer 1

これはDUPであるにもかかわらず、ここで回答されているので、私も正しい答えを投稿することがあります。

あなたがする必要がどのような値として、コードの参照が格納されますあなたのハッシュで。メソッドへのコード参照を取得するには、すべてのオブジェクトのUNIVERSAL::canメソッドを使用できます。しかし、メソッドがinvocantを渡す必要があるので、これでは不十分です。この手法は、引数で呼び出されると、今度はそれらの引数を持つ適切なメソッドを呼び出しますことをハッシュにコードの参照を格納します

my %url_map = (
    '/(article|blog)/' => sub {$dh->articleDataHandler(@_)}, 
    '/video/'   => sub {$dh->nullDataHandler(@_)}, 
); 

：だから、->canをスキップし、それをこのように書くことが最も明確です。

この回答は重要な考慮事項を省略し、callerが正しく動作することを確認しています。 [？コンストラクタにコードリファレンスを取る方法】

How to take code reference to constructor?

Answer 2

これを処理する最善の方法は、匿名サブルーチンでメソッド呼び出しをラップすることです。このサブルーチンは後で呼び出すことができます。また、qr演算子を使用して、適切な正規表現を格納し、パターンを補間するのが厄介なことを避けることもできます。例えば、

my @url_map = ( 
    { regex => qr{/(article|blog)/}, 
     method => sub { $dh->articleDataHandler } 
    }, 
    { regex => qr{/video/}, 
     method => sub { $dh->nullDataHandler } 
    } 
); 

は、このようにそれを介して実行：

foreach my $map(@url_map) { 
    if ($url =~ $map->{regex}) { 
     $map->{method}->(); 
     $mapped = 1; 
     last; 
    } 
} 

このアプローチは、ハッシュの配列ではなくフラットハッシュを使用して、その結果が含まREF各正規表現は、匿名サブ関連付けることができ実行するコード->()の構文は、subrefを逆参照し、それを呼び出します。また、サブリファレンスにパラメータを渡すこともでき、サブブロック内の@_に表示されます。このメソッドを使用して、必要に応じてパラメータを使用してメソッドを呼び出すことができます。

Answer 3

あなたは問題を熟考しています。 2つのスラッシュの間の文字列を取り出し、ハッシュのメソッド名（参照ではない）を検索します。 Perlでは、スカラー変数をメソッド名として使用できます。値は、あなたが実際に呼び出すメソッド次のようになります。

%url_map = (
     'foo' => 'foo_method', 
    ); 

my($type) = $url =~ m|\A/(.*?)/|; 
my $method = $url_map{$type} or die '...'; 
$dh->$method(@args); 

反復のほとんどはあなたに役に立たない任意のループを取り除くようにしてください。 :)私はそれはあなたがない限り（あなたがcanで特定のオブジェクトのメソッドへの参照を取得することができ、問題

に近いだにもかかわらず、好きではありません

---

私の前の回答、それ以外の方法で自分自身を実装しました）。

my $dh = Stats::Datahandler->new(); ### homebrew module 

my %url_map = (
    '/(article|blog)/' => $dh->can('articleDataHandler'), 
    '/video/'   => $dh->can('nullDataHandler'), 
); 

方法を呼び出して結果を参照します。それはあなたが延期された行動のために望むものではありません。

これを取得したら、メソッド呼び出しではなく、通常のサブルーチン逆参照として呼び出します。それはすでに、その目的を知っている：

BEGIN { 
package Foo; 

sub new { bless {}, $_[0] } 
sub cat { print "cat is $_[0]!\n"; } 
sub dog { print "dog is $_[0]!\n"; } 
} 

my $foo = Foo->new; 

my %hash = (
    'cat' => $foo->can('cat'), 
    'dog' => $foo->can('dog'), 
    ); 

my @tries = qw(cat dog catbird dogberg dogberry); 

foreach my $try (@tries) { 
    print "Trying $try\n"; 
    foreach my $key (keys %hash) { 
    print "\tTrying $key\n"; 
     if ($try =~ m{$key}) { 
      $hash{$key}->($try); 
      last; 
      } 
     } 
    }