perl -lne 'if(/^(.*?: )(.*?)(\W*)$/){print"$1$_$3"for split/, /,$2}'
Eu tenho um arquivo com alguns dados neste formulário:
Prefix text: First Name, Second Name, Third--
O prefixo difere por linha. O número de nomes varia de um para vários. O sufixo ( --
no exemplo) é opcional e não alfabético. Eu preciso expandir a lista de nomes separados por vírgulas em várias linhas (fácil: s/,/\n/g
), mas de forma que o prefixo e o sufixo (se presentes) envolvam cada uma das novas entradas:
Prefix text: First name--
Prefix text: Second name--
Prefix text: Third--
Em vez de criar um script python muito longo, pensei que seria mais divertido perguntar se alguém aqui consegue pensar no verso perfeito. Alguma idéia?