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

发布时间：2020-12-14 06:01:18 所属栏目：百科来源：网络整理

导读：我想转换如下： 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. 以下内容删除了两行

我想转换如下：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!