पर्ल मॉड्यूल में फ़ंक्शन संदर्भ कैसे लिखें?

Question

मैं यह पता लगाने की कोशिश कर रहा हूं कि एक पर्ल मॉड्यूल के लिए फ़ंक्शन संदर्भ कार्य कैसे करें। मुझे पता है कि इसे मॉड्यूल के बाहर कैसे करना है, लेकिन एक के अंदर? इस तरह कोड पर विचार करें:

==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=== 

ऊपर लाइनों 5-6 देखें। (1) फ़ंक्शन संदर्भ को पहली जगह में परिभाषित करने के लिए सही वाक्यविन्यास क्या है, और (2) इसे संदर्भित करना?

Answer 1

तो $ref एक विधि (पहला तर्क के रूप में $self उम्मीद) है और आप अपने $self पर कॉल करना चाहते हैं, वाक्य रचना है:

$self->$ref(@args) 

Answer 2

TMTOWTDI

एक समारोह संदर्भ निर्धारित करना:

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

अपसंदर्भन:

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

Answer 3

निम्नलिखित का उपयोग करें:

$self->$ref(); 

इस वाक्य के साथ

, $ref विधि का नाम कॉल करने के लिए, जैसे के साथ एक सबरूटीन के लिए एक संदर्भ या यहां तक ​​कि एक तार किया जा सकता है,

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

पता है कि दो उत्तराधिकार के संबंध में थोड़ा अलग अर्थ विज्ञान है रहो।

आप स्पष्ट तर्क गुजर नहीं कर रहे हैं, कोष्ठक वैकल्पिक हैं:

$self->$ref; # also flies 

अन्यथा

, का उपयोग

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