पर्ल, लूप के बाहर जबकि लूप के भीतर से चर का उपयोग कर?

Question

यह वास्तव में सरल लगता है लेकिन यह मुझे मुश्किल लग रहा है क्योंकि मैं पेर्ल के लिए नया हूं .. अब मैं लूप के बारे में बहुत सारे दस्तावेज देख रहा हूं और मैं अभी भी इस से चिपक गया हूं ... मैं एक उप-जिसमें लूप होता है और मैं लूप के बाहर लूप के अंदर से एक वैरिएबल वैल्यू का उपयोग करना चाहता हूं (लूप चलाने के बाद), हालांकि जब मैं चर को मुद्रित करने का प्रयास करता हूं, या इसे सब से बाहर कर देता हूं, यह काम नहीं करता है, केवल जब मैं लूप के भीतर से वैरिएबल प्रिंट करता हूं तो यह काम करता है .. मैं किसी भी सलाह की सराहना करता हूं कि मैं क्या गलत कर रहा हूं।

काम नहीं करता ($ परीक्षण मुद्रित नहीं करता है):

sub testthis {  
    $i = 1; 
    while ($i <= 2) {  
     my $test = 'its working' ;  
     $i++ ; 
    } 
    print $test ; 
} 

&testthis ; 

काम करता है, प्रिंट $ परीक्षण:

sub testthis { 
    $i = 1; 
    while ($i <= 2) { 
     my $test = 'its working' ; 
     $i++ ; 
     print $test ; 
    } 
} 

&testthis ; 

Answer 1

आप पाश अंदर चर परीक्षण की घोषणा, तो यह गुंजाइश है लूप, जैसे ही आप लूप छोड़ते हैं वैरिएबल अब घोषित नहीं किया जाता है।
my $test;$i=1 और while(..) के बीच जोड़ें और यह काम करेगा। गुंजाइश केवल लूप

Answer 2

जगह लूप से पहले my $test जगह के बजाय पूरे उप होगी। ध्यान दें कि इसमें केवल अंतिम मान होगा जो कि लूप में असाइन किया गया है। क्या आप इसके बाद क्या कर रहे हैं?

// will print "it's working" when 'the loop is hit at least once, 
// otherwise it'll print "it's not working" 
sub testthis { 
    $i = 1; 
    my $test = "it's not working"; 

    while ($i <= 2) { 
     $test = "it's working"; 
     $i++ ; 
    } 
    print $test ; 
} 

Answer 3

आप इस एक कोशिश कर सकते हैं:

sub testthis { 
my $test 
$i = 1; 
while ($i <= 2) { 

$test = 'its working' ; 

$i++ ; 

print $test ; 
} 

} 

& testthis;

नोट: जब भी पेर्ल कोड लिखते हैं, तो कोड की शुरुआत में use strict; और use warning जोड़ने के लिए बेहतर होता है।