ruby - Perl 相当于 Ruby 的分区函数？

Question

一个基本的例子是我有一个数组['abc','cde','efg']，想把它分成两个数组。一个包含包含 a 的元素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";

更新：简化。