perl – 使用相同的语法按2条规则拆分

前端之家收集整理的这篇文章主要介绍了perl – 使用相同的语法按2条规则拆分前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我有一条线:

Jon Favreau,Stan Lee,Justin Theroux,Robert Downey Jr. (Tony Stark) Gwyneth Paltrow (Pepper Potts) Don Cheadle (James Rhodes)

我想用逗号分割行,并用该结果括起来:

Jon Favreau
Stan Lee
Justin Theroux
Robert Downey Jr. (Tony Stark)
Gwyneth Paltrow (Pepper Potts)
Don Cheadle (James Rhodes)

编辑:特殊情况

线路:Jon Favreau,Robert Downey(Jr.)(Tony Stark)Gwyneth Paltrow(Pepper Potts)Don Cheadle(James Rhodes)

与世界(Jr.)在brakets.输出

Jon Favreau
Stan Lee
Justin Theroux
Robert Downey (Jr.) (Tony Stark)
Gwyneth Paltrow (Pepper Potts)
Don Cheadle (James Rhodes)

解决方法

首先在每个之后添加一个逗号然后拆分(并丢弃)逗号:

perl -e '$_="Jon Favreau,...";s/\)/\),/g;split ",";foreach (@_) {s/^\ //;print "$_\n"}'

产量:

Jon Favreau
Stan Lee
Justin Theroux
Robert Downey Jr. (Tony Stark)
Gwyneth Paltrow (Pepper Potts)
Don Cheadle (James Rhodes)

猜你在找的Perl相关文章