perl如何编写脚本批量替换文本内的字符串？

Question

如题所述

Answer 1

12open F, "example.txt" or die $!; # 打开文件example.txt
13@array = ; # 读取文件内容到数组@array
14foreach(@array){
15 if(/T(\d)\dC/ or /T(\d)\d+$/){ # 查找匹配模式T后面跟着一个数字，然后是C或者行尾
16 s/$1/1/; # 使用正则表达式替换第一个括号内的数字为1
17 }
18 print "modified$_"; # 打印修改后的内容，并保留换行符
19}