Jak mogę dokonać warunkowej zamiany w Perlu?

Question

Próbuję przekonwertować następujący:

bool foo(int a, unsigned short b) 
{ 
    return pImpl->foo(int a, unsigned short b); 
} 

do:

bool foo(int a, unsigned short b) 
{ 
    return pImpl->foo(a, b); 
} 

Innymi słowy, trzeba usunąć definicję typu na liniach, które nie są definicja funkcji.

Używam systemu Linux.

Poniższa usuwa pisać na obu liniach:

perl -p -e 's/(?<=[,(])\s*?(\w+)*.*?(\w*)(?=[,)])/ $2/g;' fileName.cpp 

Jak mogę wymienić tylko na linii zaczynającej się od „powrotu” i jeszcze wprowadzić wiele zmian na tej samej linii?

Answer 1

Dodaj if oświadczenie:

perl -p -e 's/regex/replacement/g if /^\s*return/;' fileName.cpp 

Alternatywnie, można wykorzystać, że ciąg przekazać do perl -p jest ciało pętli:

perl -p -e 'next unless /^\s*return/; s/add/replacement/g;' filename.cpp 

Answer 2

Można po prostu umieścić coś w dopasowaniu -> w regex, więc nie pasuje do definicji funkcji. Jeszcze lepiej byłoby napisać skrypt, który parsuje wiersz po wierszu i odrzuca linie bez znaku -> zanim nawet wykona zamianę.