Question

使用Perl，我想split逗号上的字符串和“和”（可能会或可能不会以逗号开头。

"Apple"提供了数组(Apple)
"Apple and Orange"提供了数组(Apple Orange)
"Apple, Orange, and Banana"提供了数组(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

Perl用“和”分隔逗号分隔列表

4 个答案: