Perl 用“and”分割逗号分隔的列表

Question

使用Perl，我想在逗号和“and”上分割一个字符串（前面可能有也可能没有逗号。

1. “Apple”给出数组< code>(Apple)
2. "Apple and Orange" 给出数组 (Apple Orange)
3. "Apple, Orange, and Banana" 给出array (Apple Orange Banana)

由于某种原因以下分割正则表达式对我不起作用：

split(/(,| and )/, $string)

Answer 1

试试这个：

my @list = split /\s*(?:(?:,\s*)?\band\b|,)\s*/, $string;

示例：

perl -E "say join ':', split /\s*(?:(?:,\s*)?\band\b|,)\s*/, 'apple, orange, and banana'"
apple:orange:banana

或者为您的示例提供一个更简单的工作案例：

/,? and |, /

Answer 2

my $str = 'Apple, Orange, and Banana';

$str =~ s/,?\s*and\b/,/;
my @words = split /\s*,\s*/, $str;

Answer 3

以下 split 应该适合您：

split /(?: ,?\s*and\s* | ,\s+? )/x;

Answer 4

这是一种解决方案。它依赖于两个 split 来完成所有繁重的工作，并使用 map 来方便起见。它可能与其他答案没有太大不同，但它很干净，而且很容易看清（除了打印之外）。我认为它适用于空格/和/逗号的大多数变体。

use warnings;
use strict;

my @w = ( "Apple", "Apple and Orange", "Apple, Orange, and Banana",
    "Apple, Orange and Banana ,and Pineapple" );

for (@w) {
    print join (':', humanize($_)), "\n";
}


sub humanize {
    my $str = shift;
    my @list = split /\s*and\s*/, $str;
    @list = map { split /\s*,\s*/, $_ } @list;
    return @list;
}

输出：

Apple
Apple:Orange
Apple:Orange:Banana
Apple:Orange:Banana:Pineapple