पर्ल में एक्सएस का उपयोग किये बिना कॉलर के चर को कैसे लिखना है?

Question

मैं कुछ पुराने कोड के आसपास इकाई परीक्षण लिख रहा हूँ, और Apache2 :: अनुरोध के read() विधि

my $r = Apache2::Request->new(...); 

$r->read(my $buf, $len); 

वहाँ एक रास्ता पर्ल में एक समारोह $buf पॉप्युलेट करने के लिए लिखने के लिए है चारों ओर एक नकली लिखने के लिए की जरूरत है लगता है? मुझे पूरा यकीन है कि ऐसा करने का एकमात्र तरीका एक्सएस कोड से ** के साथ है, लेकिन मैंने सोचा कि मैं कम से कम पहले पूछूंगा।

अपाचे 2 का उपयोग :: अनुरोध सीधे इसकी ओर जाता है, इसलिए मेरी नकल करने की मेरी इच्छा है।

perl: symbol lookup error: .../APR/Request/Apache2/Apache2.so: 
undefined symbol: modperl_xs_sv2request_rec 

Answer 1

एक पर्ल सबरूटीन या विधि में, मानकों @_ सरणी के माध्यम से पारित कर रहे हैं। कॉलिंग उप में चर के लिए इस सरणी में तत्व उपनाम हैं।

@_ खोल के आम तरीका है इस तरह एक प्रतिलिपि बनाकर है:

my($self, $buf, $len) = @_; 

तो इस मामले में $buf को बताए काम नहीं करेगा क्योंकि आप केवल चर की अपनी प्रतिलिपि संशोधित कर लिया है। लेकिन अगर आप सीधे @_ के मान में बदलाव तो है कि फोन करने वाले का चर को प्रभावित करेगा:

$_[1] = 'some data';