是否有一种快速简便的方法来查找数组,找到满足某些测试的元素并从原始数组中删除它们？
比如我想
@a = (1,7,6,3,8,4);
@b = grep_filter { $_ > 5 } @a;
# now @b = (7,8)
# and @a = (1,4)
换句话说,我想将一个数组拆分成两个数组：匹配的数组和不符合某个条件的数组.
解决方法
知道你的图书馆,芒.
use List::MoreUtils qw(part);
part { $_>5 } (1,4)
回报
(
[1,4],[7,8],)