Perl-эквивалент функции разделения Ruby?

Question

Базовый пример: у меня есть массив ['abc','cde','efg'] и хочу разбить его на два массива. Тот, который содержит элементы, содержащие c и один с остальными элементами.

В рубина я бы просто сказать:

has_c, no_c = arr.partition { |a| a.include?('c') } 

Есть простой Perl эквивалент?

Answer 1

Там в part функции в List::MoreUtils:

use List::MoreUtils 'part'; 
my $listref = [ 'abc', 'cde', 'efg' ]; 

my ($without_c, $with_c) = part { /c/ } @$listref; 

print "with c : @$with_c\n"; 
print "without: @$without_c\n"; 

Выходов:

with c : abc cde 
without: efg 

Answer 2

Я попробовал несколько вещей, с тройным оператором, это похоже на работу:

#!/usr/bin/perl 
use warnings; 
use strict; 

my @a = qw[abc cde efg]; 
my (@has_c, @no_c); 
push @{ \(/c/ ? @has_c : @no_c) }, $_ for @a; 

print "c: @has_c\nno: @no_c\n"; 

Update : simpli Fied.