我有这样的行:
alpha: beta
beta: alpha, beta
omega: beta, gamma, alpha
gamma:
alpha
beta
gamma
epsilon: alpha
我想将仅包含一个单词的行加入冒号与不包含冒号的行:
alpha: beta
beta: alpha, beta
omega: beta, gamma, alpha
gamma: alpha, beta, gamma
epsilon: alpha
这应该与 RC 代码相同,但更短一些:
my @lines;
while(<FILE>) {
chomp;
if(m/^\w+:\s(\w+(,\s)?)*$/) {
push @lines, $_;
} else {
$lines[$#lines] .= ", " unless($lines[$#lines] =~ m/^\w+:\s?$/);
$lines[$#lines] .= $_;
}
}
print join "\n", @lines;
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)