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

Question

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

Answer 1

以下是一些方法,以增加哑巴的顺序:

使用切片:

@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;

我相信黑客远比我能想出的更好的黑客.:)

Answer 2

您正在寻找内置拼接:

splice @array, 0, 5;

Answer 3

splice @array, 0, 5; 会做的。