如何在Perl中進行條件替換？

Question

我想如下轉換：

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); 
} 

換句話說，我需要刪除不屬於函數定義的行類型定義。

我正在使用Linux。

下消除了對兩行類型：

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

我怎麼只能更換與「迴歸」仍然在行開始就在同一行多次更改？

Answer 1

添加if聲明：

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

或者，您可以使用您傳遞到perl -p字符串是一個循環的身體：

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

Answer 2

你可以在你的正則表達式中放一些東西來匹配 - >以便它與函數定義不匹配。更好的辦法是編寫一個腳本，逐行解析並在沒有 - >替代之前拒絕行。