【练习-023】按要求替换文本字符

sxw

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. while(<DATA>) {
   
6.      next if /^330\d\d5/;
   
7.      $_=~s/33(\d\d)(\d\d)/20$1年$2月/g;  
   
8.          print;
   
9.          }
   
10. __DATA__
    
11. 330001--330002--330106
    
12. 330001--330006--330108
    
13. 330001--330007--330112
    
14. 330101--330108--330205
    
15. 330101--330110--330212
    
16. 330201--330211--330301
    
17. 330302--330304--330309
    
18. 330302--330308--330402
    
19. 330302--330410--330408
    
20. 330402--330406--330411
    
21. 330505--330511--330807
    

复制代码