主页 / server / 问题 / 116992
Accepted
user36101
Asked: 2010-02-26 16:12:20 +0800 CST

Perl 搜索和替换

  • 772

如何使用搜索和替换来更改文件的内容。

我需要能够将“全部变为无”和/或“全部变为无”，而不必每次都手动执行数百行。

下面是一个示例文本文件，右侧有行号。我已经知道如何打开和关闭文件以进行写入。

线条

1 define_filter absolute_minimal_filter ------- 所有
2 define_filter atma_basic_filter -------- ----- 无
3 define_filter atma_communication_filter -- 所有
4 define_filter atma_health_filter -------------无
5 define_filter atma_misc_filter --------------- 所有
6 define_filter atma_performance_filter ---- 无
7 define_filter atma_supplemental_filter ---- 无

perl replace awk sed

2 个回答

  1. 出于兴趣，Perl 解决方案与 sed 解决方案非常相似：

    perl -pi.bak -e 's/all$/none/ || s/none$/all/' input_file

    编辑：我错过了“||” 第一次。作为单独的语句，第二个将撤消第一个。哦！

    • 3
  2. Best Answer

    用精心挑选的字符串代替“temp”（在两个地方）：

    sed 's/all/temp/g;s/none/all/g; s/temp/none/g' input_file > output_file

    或者如果 "all" 和 "none" 从未出现在同一行并且总是结束该行，则没有临时字符串：

    sed 's/all$/none/;t;s/none$/all/' input_file > output_file
    • 2

相关问题