Nag hmo ntawm Perl thiab Raku sablaj hauv huab, Sawyer X tshaj tawm hloov lub ntsiab version ntawm Perl los ntawm 5 mus rau 7. Kev ua haujlwm tau ua tiav, cov ntawv tshiab yuav raug tso tawm hauv ib xyoos. Koj yuav tsum tsis txhob cia siab tias yuav muaj ntau qhov kev hloov pauv, hauv luv luv: Perl 7 tseem yog tib yam Perl 5.32 nrog cov kev teeb tsa niaj hnub. Koj tsis tas yuav ua kom meej meej cov yam ntxwv uas koj twb tau siv lawm, lawv yuav qhib rau koj!
Dab tsi yuav suav nrog?
Tseem tsis tau muaj npe tag nrho, tab sis nruj thiab ceeb toom kom paub meej! Hauv kev tso tawm thib 7, cov npe kos npe feem ntau yuav nyob twj ywm sim; utf8 tseem yuav tsis muaj sijhawm los suav nrog.
Dab tsi yuav yog neeg xiam oob qhab?
- Indirect txoj kev hu:
{;
pob foo;sub new { foom koob hmoov {} }
sub bar {print "Nyob zoo los ntawm bar()!n" x pop }
}# Ib txwm hu
my $foo = Foo->new();
# Indirect hu
bar $foo 42; - Cov lus khoob (barewords) raws li tus neeg piav qhia (tshwj tsis yog rau cov qauv (STDIN, STDOUT, STDERR))
- Perl 4 style pseudo multidimensional hashes.
# piv txwv coj los ntawm perldoc perlvar
$foo{$x,$y,$z}
# txhais tau tias $foo{join($;, $x, $y, $z)} - Cov qauv qub hauv Perl 4 style, tam sim no koj tsuas yog yuav tsum sau li no:
sub foo :prototype($$) ($left, $right) {
rov $left + $right;
}Ua ntej tus qauv uas cuam tshuam rau kev sau ua ke ntawm kev hu, thiab tom qab ntawd kos npe uas tso cov lus sib cav hauv qhov tsim nyog hloov pauv ntawm lub sijhawm ua haujlwm.
Txawm li cas los xij, tseem yuav muaj lub sijhawm los rov qab txhua yam rov qab rau hauv ntau:
siv compat::perl5;
Los yog ib zaug.
Perl 5.32 mus rau kev txhawb nqa mus ntev rau lub sijhawm 5 xyoos.
Tshaj tawm ntxiv los ntawm Brian D Foy: https://www.perl.com/article/announcing-perl-7/
TL;DR version ntawm nws: http://blogs.perl.org/users/brian_d_foy/2020/06/the-perl-7-tldr.html
Tau qhov twg los: linux.org.ru ua