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

发布时间：2020-12-15 21:17:51 所属栏目：大数据来源：网络整理

导读：@array = qw(one two three four five six seven eight);Some command hereprint @array; 解决方法这里有几种方式，以增加的笨拙顺序：使用slice： @array = @array[ 5 .. $#array ]; 使用 splice ： splice @array,5; 使用 shift ： shift @array for 1..

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

解决方法

这里有几种方式，以增加的笨拙顺序：

使用slice：

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

使用splice：

splice @array,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;

我确信黑客比黑客更好，甚至可以拿出傻瓜的方式。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!