क्या 'मेरा $ x अगर 0' चाल 5.10 से पहले पर्ल्स के लिए स्थैतिक चर निर्माण के लिए प्रयोग योग्य है?

Question

5.10 से पहले पर्ल में कोई "राज्य" घोषणा नहीं है।

मैं इन पर्ल्स में स्थिर चर बनाने के उदाहरण में आया हूं: my $x if 0। if 0 सशर्त एक स्थिर चर की तरह चर कार्य करता है:

use strict; use warnings; 
add() for 1..7; 

sub add { 
    my @arr =() if 0; 

    push @arr, '+'; 
    print @arr, "\n"; 
} 

प्रिंट:

+ 
++ 
+++ 
++++ 
+++++ 
++++++ 
+++++++ 

इस व्यवहार पर्ल के सभी संस्करणों में लगातार 5.10 से पहले है?

Answer 1

मैंने स्थिर चर बनाने के लिए हमेशा स्कोपिंग ब्रेसेस का उपयोग किया है।

add() for 1..2;  # Append to existing. 
add('foo', 'bar'); # Re-initialize if args are passed. 
add() for 1..2;  # Append to existing. 
{ 
    my @arr; 
    sub add { 
     @arr = @_ if @_; 
     push @arr, '+'; 
     print @arr, "\n"; 
    } 
} 

Answer 2

नहीं, यह बहुत क्रमी है। इसके बजाय एक बंद का उपयोग करें।

use strict; 

sub add { 
    my @arr; 

    return sub { 
     push @arr, '+'; 
     print @arr, "\n"; 
    } 
} 

my $iter = add(); 
$iter->() for 1..7; 

Answer 3

my $x if 0 का व्यवहार एक बग है। यह लंबे समय तक जीवित रहा है क्योंकि यह उपयोगी है और इस प्रकार उपयोग किया जाता है; फिक्सिंग यह मौजूदा कोड तोड़ देगा। यह सुसंगत है और इसलिए उपयोग करने योग्य माना जा सकता है लेकिन इसका मतलब यह नहीं है कि आपको ऐसा करना चाहिए। इस "सुविधा" पदावनत किया गया है और 5.10 के रूप में एक चेतावनी जारी करता है:

Deprecated use of my() in false conditional 

भले ही आप state उपयोग नहीं कर सकते (यानी अपने कोड 5.10 से पहले पर्ल के संस्करणों के तहत चलाने के लिए सक्षम होने की जरूरत है) my $x if 0 चाल सिर्फ आलस्य है। अन्यथा एक बंद का उपयोग करें:

{ 
    my $x; 
    sub counter { 
     $x = '1' unless defined $x; 
     print $x++, "\n"; 
    } 
}