arrays - 如何删除数组的前五个元素？

@array = qw(one two three four five six seven eight);
<Some command here>
print @array;

最佳答案

以下是几种方法，以增加哑度的顺序进行:

使用slice:

@array = @array[ 5 .. $#array ];

使用 splice :

splice @array, 0, 5;

使用 shift :

shift @array for 1..5;

使用 grep :

my $cnt = 0;
@array = grep { ++$cnt > 5 } @array;

使用 map :

my $cnt = 0;
@array = map { ++$cnt < 5 ? ( ) : $_ } @array;

我敢肯定，比我想出的愚蠢方法好得多的黑客。 :)