Как я могу просмотреть массив, отфильтровывая совпадения?

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;

Answer 3

Использование библиотек хорошо, но для полноты, вот функция, указанная в вопросе:

Answer 4

Это то, что вы хотите?

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

сделать еще один grep с вашим отрицательным условием.