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.
精彩评论