perl - 剔除下限和上限之外的所有值的内置方法，perl数组

Question

我在 perl 中有一个数组，其中包含已排序的非连续值。例如:1 2 3 5 7 11 13 15。

我想删除 lower 和 upper 之外的所有值，保留 lower 和 upper返回选择。我这样做的方法如下所示(可能可以通过使用 slice 来改进):

my @culledArray;
for ( my $i = 0; $i < scalar(@array); $i++ ) { 
    if ( ( $array[$i] <= $_[1] ) and ( $array[$i] >= $_[0] ) ) { 
       push(@culledArray, $array[$i]);
    }
}

lower 和 upper 包含在 $_[0] 和 $_[1] 中， 分别。是否有执行此操作的 perl 内置函数？

Answer 1

不知道有什么内置的东西可以做到这一点(这是一个非常具体的要求)，但是您可以使用 grep 来节省一些输入:

my @culledArray = grep {( $_ <= $_[1] ) and ( $_ >= $_[0] )} @array;

如果列表很长并且您不想复制它，请找到开始和结束索引并使用 slice可能很有趣。