求助；文本中相同字符替換與刪除

hkldd

   文本中相同字符替換與刪除，示例文件如下；a.txt是要處理的文本、b.txt是處理好的文本，謝謝大家！

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

b.txt
隨機數(shù)據(jù)(矩陣)\隨機批次001數(shù)據(jù)\注匯總001
4
1
隨機數(shù)據(jù)(矩陣)\隨機批次001數(shù)據(jù)\注匯總002
5
1

替換說明；
      把a.txt文本中的所有"at"字符替換成文字"隨機數(shù)據(jù)(矩陣)\隨機批次001數(shù)據(jù)\注匯總"
      把".txt"替換成空

zxy877298415

1. while(<DATA>){
   
2.   s/at([^.]+).txt/隨機數(shù)據(jù)(矩陣)\\隨機批次001數(shù)據(jù)\\注匯總$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+).*/隨機數(shù)據(jù)(矩陣)\\隨機批次001數(shù)據(jù)\\注匯總$1/;print' a.txt > b.txt

復制代碼