subloutine

Question

में perl foreach loop मुझे संदर्भ द्वारा perl pass arg में subroutine पता है। लेकिन नीचे दिए गए कोड में, सबराउटिन में फ़ोरैच लूप @list के मान को नहीं बदलना चाहिए क्योंकि my $i को नया लेक्सिकली स्कोप var $i बनाना चाहिए। $i पर कोई भी असाइनमेंट लेक्सिक रूप से गुंजाइश होना चाहिए लेकिन @list मान को नहीं बदलना चाहिए।

कोई भी बता सकता है कि फ़ोरैच लूप के अंदर क्या हो रहा है जिससे मान @list पर बदल जाता है?

sub absList {  
    foreach my $i (@_) { 
     $i = abs($i); 
    } 
} 

@list = (-2,2,4,-4); 
absList(@list); 
print "@list"; 

आउटपुट:

2 2 4 4 

Answer 1

$i@_ सरणी कारण foreach सुविधा के तत्वों को एलियास किया गया है (और @_ तत्वों @list कारण @_magic के तत्वों को एलियास की गई हैं)।

से perldoc

सूची के किसी भी तत्व एक lvalue है, तो आप इसे पाश अंदर वीएआर को संशोधित करके संशोधित कर सकते हैं। इसके विपरीत, यदि LIST का कोई तत्व एक आभासी नहीं है, तो उस तत्व को संशोधित करने का कोई भी प्रयास विफल हो जाएगा। दूसरे शब्दों में, फ़ोरैच लूप इंडेक्स वैरिएबल उस सूची में प्रत्येक आइटम के लिए एक अंतर्निहित उपनाम है जिसे आप लूप कर रहे हैं।

यदि आप इस तरह के व्यवहार से बचना चाहते हैं, तो सीधे @_ सरणी पर पुन: सक्रिय न करें।

sub absList { 
    my @arr = @_; 
    foreach my $i (@arr) { 
     $i = abs($i); 
    } 
} 

Answer 2

$i यहाँ सूची तत्व है जो यह @_ से हो जाता है संदर्भित करता है, यही कारण है कि बदलते $i कारणों संबंधित सूची तत्व में बदल जाते हैं।