मैं एक सबराउटिन को फिर से परिभाषित कैसे कर सकता हूं और बूढ़ा भी रख सकता हूं?

Question

यहाँ मैं प्राप्त करना चाहते हैं क्या करना है:

sub first { 
    print "this is original first"; 
} 

*original_first = \&first; 

sub first { 
    print "this is first redefined"; 
} 

original_first(); # i expect this to print "this is original first" 
first() # i expect this to print "this is first redefined" 

मैंने सोचा था कि first के लिए प्रतीक को सहेजकर, मैं बाद में मूल सबरूटीन कॉल करने के लिए (नाम original_first से कम) में सक्षम है और यह भी सक्षम होने के लिए होगा first पर कॉल करने के लिए, और एक को फिर से परिभाषित करें। हालांकि, अगर मैं original_first पर कॉल करता हूं, तो मुझे अभी भी "यह पहली बार परिभाषित किया गया है"। मुझे यह काम करने के लिए क्या करना है?

Answer 1

आपकी अपेक्षा के अनुरूप यह काम करना चाहिए:

sub first { 
    print "this is original first"; 
} 

*original_first = \&first; 

*first = sub { 
    print "this is first redefined"; 
}; 

Answer 2

अपने कोड में

, पर्ल दोनों उप इस के समान घोषणाओं की व्याख्या:

BEGIN { 
    *first = sub { ... } 
} 

इसलिए दोनों कार्य &first अंत तक प्रति सहेजने से पहले हो रहा करने के लिए और दिनचर्या बुलाओ। ठीक एक क्रम काम में दूसरी घोषणा बनाना है:

sub first { 
    print "this is original first"; 
} 

*original_first = \&first; 

*first = sub {print "this is first redefined"}; 

original_first(); # prints "this is original first" 
first();   # prints "this is first redefined" 

Answer 3

Hook::LexWrap मॉड्यूल है, जो आप के लिए यह सब संभाल कर सकते हैं देखें। यदि आप मॉड्यूल का उपयोग नहीं करना चाहते हैं, तो बस स्रोत देखें, जो आपको दिखाता है कि यह वास्तव में कैसे करें।