正则表达式 – 如何在Perl中进行条件替换?

前端之家收集整理的这篇文章主要介绍了正则表达式 – 如何在Perl中进行条件替换?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我想转换如下:

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

如何仅在以“return”开头的行上替换并仍在同一行上进行多项更改?

解决方法

添加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

猜你在找的正则表达式相关文章