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

发布时间：2020-12-16 06:09:13 所属栏目：大数据来源：网络整理

导读：我有一条线： Jon Favreau,Stan Lee,Justin Theroux,Robert Downey Jr. (Tony Stark) Gwyneth Paltrow (Pepper Potts) Don Cheadle (James Rhodes) 我想用逗号分割行,并用该结果括起来： Jon FavreauStan LeeJustin TherouxRobert Downey Jr. (Tony Stark)Gw

我有一条线：

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)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!