如何过滤匹配时如何通过数组grep？

Question

是否有一种快速简便的方法来查找数组,找到满足某些测试的元素并从原始数组中删除它们？

比如我想

@a = (1, 7, 6, 3, 8, 4);
@b = grep_filter { $_ > 5 } @a;

# now @b = (7, 6, 8)
# and @a = (1, 3, 4)

换句话说,我想将一个数组拆分成两个数组:匹配的数组和不符合某个条件的数组.

Answer 1

知道你的图书馆,芒.

use List::MoreUtils qw(part);
part { $_>5 } (1, 7, 6, 3, 8, 4)

回报

(
    [1, 3, 4],
    [7, 6, 8],
)

Answer 2

my @a = (1, 7, 6, 3, 8, 4);
my (@b, @c);    

push @{ $_ > 5 ? \@b : \@c }, $_ for @a;