ืืืฉ ืืื ืก ืคืจื ืืจืืงื ืืขื ื, ืืืืืข โโืกืืืืจ X ืฉืื ืื ืืืจืกื ืืจืืฉืืช ืฉื Perl ื-5 ื-7. ืืขืืืื ืืืจ ืืขืืฆืืื, ืืืจืกื ืืืืฉื ืชืฉืืืจืจ ืชืื ืฉื ื. ืืชื ืื ืฆืจืื ืืฆืคืืช ืืืจืื ืฉืื ืืืื, ืืงืืฆืืจ: Perl 7 ืืื ืขืืืื ืืืชื Perl 5.32 ืขื ืืืืจืืช ืืจืืจืช ืืืื ืืืืจื ืืืช. ืืื ื ืฆืจืื ืืืชืจ ืืืคืขืื ืืืคืืจืฉ ืชืืื ืืช ืฉืืชื ืืืจ ืืฉืชืืฉ ืืื, ืื ืืืคืขืื ืขืืืจื!
ืื ืืืืื?
ืืื ืขืืืื ืจืฉืืื ืืืื, ืืื ืงืคืื ืืช ืืืืืืจื ืืืืืืืช! ืืืืืืจื ืืฉืืืขืืช, ืืื ืื ืจืื ืืืชืืืืช ืืืฉืืจื ื ืืกืืื ืืืช; ื-utf7 ืื ืื ืืืื ืืื ืืืืืื.
ืื ืืืฉืืช?
- ืฉืืื ืขืงืืคื ืงืืจืืช:
{;
ืืืืื foo;ืืฉื ื ืืืฉ { ืืจืื {} }
ืกืจืื ืืฉื ื { print "Hello from bar()!n" x pop }
}# ืฉืืื ืจืืืื
my $foo = Foo->new();
# ืฉืืื ืขืงืืคื
bar $foo 42; - ืืืืื ืจืืงืืช (ืจืง ืืืืื) ืืืืื ืชืืืืจ (ืคืจื ืืืืืื ืกืื ืืจืืืืช (STDIN, STDOUT, STDERR))
- ืืืืื ืจื ืืืื ืคืกืืืื ืืกืื ืื Perl 4.
# ืืืืืืืช ืฉื ืืงืื ื-perldoc perlvar
$foo{$x,$y,$z}
# ืคืืจืืฉื ืืืขืฉื $foo{join($;, $x, $y, $z)} - ืืืืช ืืืคืืก ืืฉื ืื ืืกืื ืื Perl 4. ืขืืฉืื ืืชื ืจืง ืฆืจืื ืืืชืื ืื:
sub foo :prototype($$) ($left, $right) {
ืืืืจ $left + $right;
}ืชืืืื ืื ืืืคืืก ืฉืืฉืคืืข ืขื ืงืืืคืืืฆืื ืฉื ืงืจืืืืช, ืืืืืจ ืืื ืืชืืืืช ืฉืืืงืืืช ืืช ืืืจืืืื ืืื ืืืฉืชื ืื ืืืชืืืืื ืืืื ืืจืืฆื.
ืขื ืืืช, ืขืืืื ืชืืื ืืืืื ืืช ืืืืืืจ ืืื ืืืืืืืช ืืืืืืช:
ืืฉืชืืฉ ื-compat::perl5;
ืื ืืื ืืื ืคืขื.
Perl 5.32 ื ืื ืก ืืชืืืื ืืจืืืช ืืืื ืืชืงืืคื ืฉื 5 ืฉื ืื.
ืืืืขื ืืืจืืืช ืฉื ืืจืืื ื ืคืื: https://www.perl.com/article/announcing-perl-7/
ืืจืกืช TL;DR ืืื ื: http://blogs.perl.org/users/brian_d_foy/2020/06/the-perl-7-tldr.html
ืืงืืจ: linux.org.ru