如何使用 Perl 分割一行文本？

Question

可能的重复：
在冒号后连接行 (perl)

可能有下一行，如下所示：

red: alpha green: beta, gamma blue: alpha, beta yellow: alpha (gamma) beta (alpha) gamma (beta)

此行可以包含更多字符，例如以下任何一个：

xxx: yyyy
xxx: yyyy, zzzz
xxx: yyyy (zzz) yyyyy (xx)

我想根据以下标准分割这一行：

输入的部分“黄色：alpha（gamma）beta（alpha）gamma（beta）”被分配为“yellow” ：阿尔法(gamma)”、“黄色：beta (alpha)”、“黄色：gamma (beta)”。

找到“单词后跟冒号”并将其添加为新行的缩进，如果“单词后跟冒号”后跟一个不包含冒号的单词，则生成一行，如果“单词后跟冒号”后跟两个单词，则生成两行（可能是逗号分隔的）不包含冒号的单词。如果“后跟冒号的单词”之后的第二个单词带有括号，则括号内的信息与其前面的单词位于同一行。

示例 1：

行

aa: bb ccc

分割

aa: bb
aa: ccc

示例 2：

行

aa: bb, ccc ddd: aa eee ff

分割

aa: bb
aa: ccc
ddd: aa
ddd: eee
ddd: aa

原始

对于原始示例输入，输出应为：

red: alpha
green: beta
green: gamma
blue: alpha
blue: beta
yellow: alpha (gamma)
yellow: beta (alpha)
yellow: gamma (beta)

Answer 1

use strict;
use warnings;
my $line = 'red: alpha green: beta, gamma blue: alpha, beta yellow: alpha (gamma) beta (alpha) gamma (beta)';
my @tmp = split /\s*?(\w+):\s*/, $line;
shift @tmp;
while (my ($color, $value) = splice @tmp, 0, 2) {
    foreach my $v (split /, | (?!\()/, $value) {
        print "$color: $v\n";
    }
}

Answer 2

#!/usr/bin/env perl
use strict;
use warnings;
my @toplevels;
while (<DATA>) {
    chomp;
    @toplevels = split /(?=\w+:)/;
}
for my $chunk (@toplevels) {
    my ($color, $line) = ( $chunk =~ /(^\w+:)(.+)/ );
    my @line = split /[,)]/, $line;
    for (@line) {
        printf "%s%s%s\n", $color, $_, m/\(/ ? ')' : '';
    }
}
__DATA__
red: alpha green: beta, gamma blue: alpha, beta yellow: alpha (gamma) beta (alpha) gamma (beta)

Answer 3

use strict;
use warnings;
use v5.10;

while (<DATA>) {
    for my $unit (/[a-z]+:\s*[a-z, ()]+\s+(?=[a-z]+:)?/g) {
        if ($unit =~ /^([a-z]+:)\s*(.+)$/) {
            my $key = $1;
            my @val = split /[, ]+(?!\()/, $2;
            say "$key $_" for @val;
        }
    }
}

__DATA__
red: alpha green: beta, gamma blue: alpha, beta yellow: alpha (gamma) beta (alpha) gamma (beta)

Answer 4

您可以执行以下操作：

#!/usr/bin/perl -w

use strict;
use warnings;

my $string = "red: alpha green: beta, gamma blue: alpha, beta yellow: alpha (gamma) beta (alpha) gamma (beta)";

for my $key_values (split/(?=\w+:)/, $string) {
    my ($key, $values) = split/: /, $key_values;
    for my $value (split/, |(?<=\)) | (?!\()/, $values) {
        print "$key: $value\n";
    }
}

高尔夫版本：

map{s/(.+: )//;map{print"$1$_\n"}split/, |(?<=\)) | (?!\()/}split/(?=\w+:)/,$string;

编辑： 我忽略了其中一项“要求”，因此我必须更新第三个正则表达式。