如何删除数组的前五个元素? [英] How do I remove the first five elements of an array?

问题描述

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

推荐答案

这里有几种方法，按愚蠢程度递增:

Here are a few ways, in increasing order of dumbness:

使用切片:

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

使用拼接:

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;

我确信黑客比我想出的更愚蠢的方法要好得多.:)

I'm sure far better hackers than I can come up with even dumber ways. :)

这篇关于如何删除数组的前五个元素?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！