どのようにして一致を除外しながら配列を通してgrepできますか？

Question

いくつかのテストを満たす要素を見つけるための素早く簡単な方法はありますかとは元の配列からこれらを削除しますか？一致するものと特定の条件に合致しないもの：

例えば私は言い換える

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

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

したい、私は2つのアレイにアレイを分割します。

Answer 1

あなたのライブラリ、mangを知っていますか？

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

戻り

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

Answer 2

これは必要なものですか？

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

条件を否定して別のgrepを実行します。

Answer 3

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

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

Answer 4

ライブラリの使用は良いですが、完全を期すために、ここで問題に指定されている機能である：

sub grep_filter (&\@) { 
    my ($code, $src) = @_; 
    my ($i, @ret) = 0; 
    local *_; 
    while ($i < @$src) { 
     *_ = \$$src[$i]; 
     &$code 
      ? push @ret, splice @$src, $i, 1 
      : $i++ 
    } 
    @ret 
} 

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

say "@a"; # 1 3 4 
say "@b"; # 7 6 8