Làm cách nào để gọi tên hàm được lưu trữ trong băm trong Perl?

Question

Tôi chắc chắn rằng điều này được đề cập trong tài liệu ở đâu đó nhưng tôi không thể tìm thấy nó ... Tôi đang tìm đường cú pháp mà sẽ làm cho nó có thể gọi một phương thức trên một lớp có tên được lưu trữ trong một băm (như trái ngược với một vô hướng đơn giản):

use strict; use warnings; 

package Foo; 
sub foo { print "in foo()\n" } 

package main; 
my %hash = (func => 'foo'); 

Foo->$hash{func}; 

Nếu tôi sao chép $hash{func} vào một biến vô hướng đầu tiên, sau đó tôi có thể gọi Foo->$func tốt ... nhưng những gì là mất tích để cho phép Foo->$hash{func} để làm việc?

(EDIT: Tôi không có ý định làm bất cứ điều gì đặc biệt bằng cách gọi một phương thức trên lớp Foo - điều này có thể dễ dàng là một đối tượng may mắn (và trong mã thực tế của tôi); lập một ví dụ độc lập bằng cách sử dụng phương thức lớp.)

CHỈNH SỬA 2: Chỉ cần điền đầy đủ các nhận xét bên dưới, đây là những gì tôi thực sự đang làm (thư viện đường thuộc tính Moose, được tạo với Moose::Exporter) :

# adds an accessor to a sibling module 
sub foreignTable 
{ 
    my ($meta, $table, %args) = @_; 

    my $class = 'MyApp::Dir1::Dir2::' . $table; 
    my $dbAccessor = lcfirst $table; 

    eval "require $class" or do { die "Can't load $class: $@" }; 

    $meta->add_attribute(
     $table, 
     is => 'ro', 
     isa => $class, 
     init_arg => undef, # don't allow in constructor 
     lazy => 1, 
     predicate => 'has_' . $table, 
     default => sub { 
      my $this = shift; 
      $this->debug("in builder for $class"); 

      ### here's the line that uses a hash value as the method name 
      my @args = ($args{primaryKey} => $this->${\$args{primaryKey}}); 
      push @args, (_dbObject => $this->_dbObject->$dbAccessor) 
       if $args{fkRelationshipExists}; 

      $this->debug("passing these values to $class -> new: @args"); 
      $class->new(@args); 
     }, 
    ); 
} 

Tôi đã thay thế dòng được đánh dấu ở trên bằng điều này:

 my $pk_accessor = $this->meta->find_attribute_by_name($args{primaryKey})->get_read_method_ref; 
     my @args = ($args{primaryKey} => $this->$pk_accessor); 

PS. Tôi đã chỉ nhận thấy rằng kỹ thuật tương tự này (sử dụng lớp meta Moose để tra cứu coderef thay vì giả định quy ước đặt tên) không thể cũng được sử dụng cho các vị từ, vì Class::MOP::Attribute không có truy cập get_predicate_method_ref tương tự. :(

Answer 1

Foo->${\$hash{func}}; 

Nhưng cho rõ ràng, tôi muốn có lẽ vẫn viết nó như:

my $method = $hash{func}; 
Foo->$method; 

Answer 2

Có một lý do bạn đang lưu trữ tên chương trình con thay vì các tham chiếu đến mã?

ví dụ

use strict; use warnings; 

package Foo; 
sub foo { print "in foo()\n" } 

package main; 
my %hash = (func => \&Foo::foo); 

$hash{func}->(); 

Bạn sẽ không được thông qua tên lớp, nhưng nếu đó là quan trọng với bạn , bạn có thể sử dụng giống như

my %hash = (func => sub { return Foo->foo(@_) }); 

Answer 3

Các bạn đã thử UNIVERSAL'sthể phương pháp? Bạn sẽ có thể thực hiện một cái gì đó như thế này:

## untested 
if (my $code = $object->can($hash{func})) { 
    $object->$code(); 
} 

tôi đã vô dụng, một dòng ví dụ để chứng minh:

perl -MData::Dumper -le 'my %h = (f => "Dump"); my $o = Data::Dumper->new([qw/1 2 3/]); my $ref = $o->can($h{f}); print $o->$ref()'