Perl搜索和替换

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

我需要能够将’all to none’和/或’none to all’更改为无需每次手动执行数百行.

下面是一个示例文本文件,右侧是行号.我知道如何打开和关闭文件进行写入.

行

1 define_filter absolute_minimal_filter ——- all
2 define_filter atma_basic_filter ——– —–无
3 define_filter atma_communication_filter – 全部
4 define_filter atma_health_filter ————-无
5 define_filter atma_misc_filter ————— all
6 define_filter atma_performance_filter —- none
7 define_filter atma_supplemental_filter —- none

解决方法

使用精心挑选的字符串代替“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