पर्ल 5.10 में नया क्या है?

दूसरे दिन, रिलीज़ के लिए पर्ल का पहला उम्मीदवार सामने आया - 5.10.0 RC1 । लेकिन पिछली रिलीज (5.8) को 5 साल बीत चुके हैं।



तो 5.10 में हमारा क्या इंतजार है?



यह ध्यान दिया जाना चाहिए कि पर्ल 5.10 पिछले संस्करणों के साथ पिछड़े संगत है, आगामी पर्ल 6 के विपरीत।



डिफ़ॉल्ट रूप से, संस्करण 5.10 की नई सुविधाएँ अक्षम हैं। वे एक विशेष उपयोग सुविधा प्राग्मा द्वारा सक्रिय होते हैं, जो संयोगवश, एक शाब्दिक गुंजाइश है; या रिकॉर्ड उपयोग 5.10 का उपयोग कर।



समारोह कहें

अच्छे पुराने प्रिंट का एक एनालॉग, एकमात्र अंतर जो कहता है कि स्वचालित रूप से आउटपुट लाइन में "\ n" जोड़ता है:

#

print "$_\n" for @lines;

#

say for @lines;







संचालक //

मिश्रण || और परिभाषित, जिसे परिभाषित-या कहा जाता है। यह ज्ञात है कि निम्नलिखित कोड पूरी तरह से सही नहीं है, क्योंकि "झूठे" मूल्यों "" और 0 को ध्यान में नहीं रखा गया है:

$var = $_[0] || 'default';





सही प्रविष्टि इस तरह दिखाई देती है:

$var = $_[0];

$var = 'default' unless defined $var;

#

$var = defined $_[0] ? $_[0] : 'default';





पिछले दो उदाहरणों के नए // ऑपरेटर के लिए इस तरह से फिर से लिखा गया है:

$var = $_[0];

$var //= 'default';

#

$var = $_[0] // 'default';







संचालक ~~

यह ऑपरेटर स्मार्ट मिलान या स्मार्ट मिलान के तंत्र को लागू करता है। यह सराहनीय है (अर्थात, $ ~ ~ $ b $ b ~~ $ a के बराबर है) और इसका व्यवहार पारित किए गए तर्कों के प्रकारों पर निर्भर करता है। उदाहरण के लिए:

say "$x " if $x ~~ @array; # grep $_ == $b, @$a grep $_ == $b, @$a

say "foobar " if @x ~~ /foobar/; # grep /$b/, @$a

say "$key " if $key ~~ %hash # exists $a->{$b}





दूसरे शब्दों में, ~~ सभी में एक है। इस तरह के संदर्भ-संवेदनशील कमी। शीर्ष लेख में लिंक से पूर्ण व्यवहार तालिका उपलब्ध है।



दिया - सी-निर्माण स्विच का एक एनालॉग

अब यह निर्माण बिल्ट-इन है। यह तीन नए शब्दों द्वारा लागू किया गया है: दिए गए, कब और डिफ़ॉल्ट। इसके अलावा, वह ऊपर वर्णित स्मार्ट मिलान का उपयोग करती है। स्टूडियो में एक उदाहरण!

#

if( $var ~~ undef ) { ... }

elsif( $var ~~ $var ) { ... }

elsif( $var ~~ @array ) { ... }

elsif( $var ~~ %hash ) { ... }

elsif( $var ~~ /regexp/ ) { ... }

else { ... }

#

given( $var ) {

when( undef ) { ... }

when( $var ) { ... }

when( @array ) { ... }

when( %hash ) { ... }

when( /regexp/ ) { ... }

default { ... }

}





खेल "अनुमान संख्या" (:

use feature qw( switch say );

my @guessed;

my $num = int( rand 100 ) + 1;

while( my $guess = ) {

chomp $guess;

given( $guess ) {

when( /\D/ ) { say ", " }

when( @guessed ) { say " " }

when( $num ) { say " !"; last }

when( $_ < $num ) { say ""; continue }

when( $_ > $num ) { say ""; continue }

push @guessed, $_;

}

}





. (?...). — \k. %+ . %-, , , .

# name=value

$str =~ /(?\w+)=(?\w+)/;

say "The value of $_ is $+{$_}" foreach keys %+;

(possessive quantifiers). - , . « » , «?» «+». : ?+, *+, ++, {min,max}+.







state-

C- static. state , .

sub counter {

state $i = 0;

return $i++;

}







Filetest -X



-x $file && -w _ && -f _







-f -w -x $file







…

. , perl5100delta.pod



:

Perl 5.10 for People Who Aren't Totally Insane What's new in Perl 5.10?









• use feature qw( switch say );

my @guessed;

my $num = int( rand 100 ) + 1;

while( my $guess = ) {

chomp $guess;

given( $guess ) {

when( /\D/ ) { say ", " }

when( @guessed ) { say " " }

when( $num ) { say " !"; last }

when( $_ < $num ) { say ""; continue }

when( $_ > $num ) { say ""; continue }

push @guessed, $_;

}

}





. (?...). — \k. %+ . %-, , , .

# name=value

$str =~ /(?\w+)=(?\w+)/;

say "The value of $_ is $+{$_}" foreach keys %+;

(possessive quantifiers). - , . « » , «?» «+». : ?+, *+, ++, {min,max}+.







state-

C- static. state , .

sub counter {

state $i = 0;

return $i++;

}







Filetest -X



-x $file && -w _ && -f _







-f -w -x $file







…

. , perl5100delta.pod



:

Perl 5.10 for People Who Aren't Totally Insane What's new in Perl 5.10?








  
  
  
  
  • use feature qw( switch say );

my @guessed;

my $num = int( rand 100 ) + 1;

while( my $guess = ) {

chomp $guess;

given( $guess ) {

when( /\D/ ) { say ", " }

when( @guessed ) { say " " }

when( $num ) { say " !"; last }

when( $_ < $num ) { say ""; continue }

when( $_ > $num ) { say ""; continue }

push @guessed, $_;

}

}





. (?...). — \k. %+ . %-, , , .

# name=value

$str =~ /(?\w+)=(?\w+)/;

say "The value of $_ is $+{$_}" foreach keys %+;

(possessive quantifiers). - , . « » , «?» «+». : ?+, *+, ++, {min,max}+.







state-

C- static. state , .

sub counter {

state $i = 0;

return $i++;

}







Filetest -X



-x $file && -w _ && -f _







-f -w -x $file







…

. , perl5100delta.pod



:

Perl 5.10 for People Who Aren't Totally Insane What's new in Perl 5.10?








    
    
    
    
  • use feature qw( switch say );

my @guessed;

my $num = int( rand 100 ) + 1;

while( my $guess = ) {

chomp $guess;

given( $guess ) {

when( /\D/ ) { say ", " }

when( @guessed ) { say " " }

when( $num ) { say " !"; last }

when( $_ < $num ) { say ""; continue }

when( $_ > $num ) { say ""; continue }

push @guessed, $_;

}

}





. (?...). — \k. %+ . %-, , , .

# name=value

$str =~ /(?\w+)=(?\w+)/;

say "The value of $_ is $+{$_}" foreach keys %+;

(possessive quantifiers). - , . « » , «?» «+». : ?+, *+, ++, {min,max}+.







state-

C- static. state , .

sub counter {

state $i = 0;

return $i++;

}







Filetest -X



-x $file && -w _ && -f _







-f -w -x $file







…

. , perl5100delta.pod



:

Perl 5.10 for People Who Aren't Totally Insane What's new in Perl 5.10?