在perl中打印列表的前几个元素

Question

有一个下一个perl代码

use 5.012;
use warnings;

#make some random numbers
my @list = map { rand } 1..10;

say "print all 10 numbers";
say $_ for @list;

say "print only first 5";
my $n=0;
for (@list) {
        say $_ if $n++ < 5;
}

一些更紧凑的形式,用于打印任何阵列的第一个(最后一个)N个元素？

接下来是语法错误......

$n=0;
#say $_ if($n++ < 5) for @list;

Answer 1

要打印前5个项目:

say for @list[0 .. 4];

要打印最后5个项目:

say for @list[-5 .. -1];