Perl modülünde bir işlev referansı nasıl yazılır?

Question

Perl modülü için bir referans referans çalışması nasıl yapılacağını anlamaya çalışıyorum. Bir modülün dışında nasıl yapılacağını biliyorum ama bir tanesinin içinde mi? Bu gibi bir kod düşünün:

==mymodule.pm== 
1 sub foo { my $self = shift; ... } 
2 sub bar { my $self = shift; ... } 
3 sub zip { 
4 my $self = shift; 
5 my $ref = \&foo; 
6 $self->&$foo(); # what syntax is appropriate? 
7 } 
==eof=== 

Yukarıdaki 5-6 numaralı satırlara bakın. (1) fonksiyon referansını ilk sırada tanımlamak ve (2) bunu iptal etmek için doğru sözdizimi nedir?

Answer 1

$ref Bir yöntem (ilk argüman olarak $self beklediğini) ise ve senin $self üzerine aramak istediğiniz, sözdizimi: Bir fonksiyon referans tanımlama

$self->$ref(@args) 

Answer 2

TMTOWTDI

:

$ref = \&subroutine; 
$ref = sub { BLOCK }; 
$ref = "subroutineName"; # or $ref = $scalarSubroutineName 

başvurusu kaldırıldığında:

$ref->(@args); 
&$ref; 
&{$ref}(@args); 

Answer 3

aşağıdaki kullanım: Bu sözdizimi ile

$self->$ref(); 

, $ref, örneğin aramak için yöntemin adı ile bir alt yordam bir referans ya da bir dizi olabilir,

my $ref = "foo"; 
$self->$ref(); 

iki miras bakımından biraz farklı anlamlara sahip olduğunu unutmayın.

müstehcen argümanları geçmezken, parantezler isteğe bağlıdır: Aksi

$self->$ref; # also flies 

,

$self->$ref($arg1, \%arg2, @others);