求助；文本中相同字符替换与删除

hkldd

   文本中相同字符替换与删除，示例文件如下；a.txt是要处理的文本、b.txt是处理好的文本，谢谢大家！

a.txt
at001.txt
4
1
at002.txt
5
1

b.txt
随机数据(矩阵)\随机批次001数据\注汇总001
4
1
随机数据(矩阵)\随机批次001数据\注汇总002
5
1

替换说明；
      把a.txt文本中的所有"at"字符替换成文字"随机数据(矩阵)\随机批次001数据\注汇总"
      把".txt"替换成空

zxy877298415

1. while(<DATA>){
   
2.   s/at([^.]+).txt/随机数据(矩阵)\\随机批次001数据\\注汇总$1/g;
   
3.   print $_;
   
4. }
   
5. 
   
6. 
   
7. __DATA__
   
8. a.txt
   
9. at001.txt
   
10. 4
    
11. 1
    
12. at002.txt

复制代码

回复 1# hkldd


   

songyc_2015

回复 1# hkldd

1. perl -ne 's/at(\d+).*/随机数据(矩阵)\\随机批次001数据\\注汇总$1/;print' a.txt > b.txt

复制代码