Comment faire une substitution conditionnelle en Perl?

Question

Je suis en train de convertir comme suit:

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

à:

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

En d'autres termes, je dois supprimer la définition de type sur les lignes qui ne sont pas la définition de la fonction. J'utilise Linux. J'utilise Linux.

Le suivant supprime le type sur les deux lignes:

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

Comment puis-je remplacer seulement sur la ligne commençant par « retour » et de faire encore plusieurs changements sur la même ligne?

Answer 1

Ajouter une déclaration if:

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

Alternativement, vous pouvez utiliser cette la chaîne que vous passez à perl -p est un corps d'une boucle:

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

Answer 2

Vous pouvez simplement mettre quelque chose à faire correspondre -> dans votre expression régulière afin qu'elle ne corresponde pas à la définition de la fonction. Encore mieux serait d'écrire un script qui analyse ligne par ligne et rejette les lignes sans -> avant même de faire la substitution.