पर्ल 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?