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

相关文章

1. 如何去重 #!/usr/bin/perl use strict; my %hash; while(...
最近写了一个perl脚本,实现的功能是将表格中其中两列的数据...
表的数据字典格式如下:如果手动写MySQL建表语句,确认麻烦,...
巡检类工作经常会出具日报,最近在原有日报的基础上又新增了...
在实际生产环境中,常常需要从后台日志中截取报文,报文的形...
最近写的一个perl程序,通过关键词匹配统计其出现的频率,让...