我有一条线:
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)