代码之家  ›  专栏  ›  技术社区  ›  user204884

如何在Perl中进行条件替换?

  •  5
  • user204884  · 技术社区  · 15 年前

    我试图转换如下:

    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”开头的行上替换,并在同一行上进行多个更改?

    2 回复  |  直到 15 年前
        1
  •  8
  •   P Shved    15 年前

    添加一个 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
    
        2
  •  0
  •   user181548    15 年前

    您只需在regex中放置一些要匹配的内容,使其与函数定义不匹配。更好的方法是编写一个脚本,在执行替换之前逐行分析并拒绝不带->的行。