开发者

How can I do a conditional substitution in Perl?

I am trying to convert as following:

bool foo(int a, unsigned short b)
{
    return pImpl->foo(int a, uns开发者_如何学运维igned short b);
}

to:

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

In other words, I need to remove the type definition on the lines which are not the function definition.

I am using Linux.

The following removes the type on both lines:

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

How can I replace only on the line beginning with 'return' and still make multiple changes on the same line?


Add an if statement:

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

Alternatively, you may utilize that the string you pass to perl -p is a body of a loop:

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


You could just put something to match -> in your regex so it doesn't match the function definition. Even better would be to write a script which parses line by line and rejects lines without a -> before even doing the substitution.

0

上一篇:

下一篇:

精彩评论

暂无评论...
验证码 换一张
取 消

最新问答

问答排行榜