Perl相当于Ruby的分区功能吗？

Question

一个基本的例子是我有一个数组['abc','cde','efg']并想将其分成两个数组。 一个元素的元素包含一个c ，另一个元素的其余元素。

在红宝石中，我只想说：

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

是否有一个简单的perl等效项？

Answer 1

List::MoreUtils有part函数：

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";

更新：简化。