数组 – 在Perl中通过索引从数组中排除元素的最佳方法是什么？

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

导读：我使用以下代码在@ {$index}中的索引处排除@ {$x}中的元素.但我不确定它是实现此功能的最有效方式.有没有人有更好的方法. sub arrayexclude { my $x = shift; my $index = shift; my @keep_index = (0 .. (scalar(@{$x})-1)); delete @keep_index[@{$index}]

我使用以下代码在@ {$index}中的索引处排除@ {$x}中的元素.但我不确定它是实现此功能的最有效方式.有没有人有更好的方法.

sub arrayexclude {
    my $x = shift;
    my $index = shift;

    my @keep_index = (0 .. (scalar(@{$x})-1));

    delete @keep_index[@{$index}];

    my $result=[];

    for my $i (@keep_index) {
        if(defined $i) {
            push @{$result},@{$x}[$i];
        }
    }
    return $result;
}

解决方法

你不需要超过 array slice的任何东西,所以我会避免为此创建一个sub.

my @wanted = @array[@indices];

如果您正在使用数组引用,则适用相同的配方：

my @wanted = @{$array}[@$indices];

（编辑：李大同）

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