【练习-010】文本最末列数值乘一个数

sxw

欢迎指正，可能有错:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. while (<DATA>) {
   
7.       chomp;
   
8.       $_=~s/(\d+(?:\.\d+)?)#+\s*#?$/$1*7/e;
   
9.           print "$_\n";
   
10.           }
    
11. __DATA__
    
12. 1##4072.0###52.19### #50## #
    
13. 2#38705.8# # # 51.73## #5# #
    
14. 372###389.0##51.80##19.77# # 4#####
    
15. 4##59.71#3715.45##7.5######
    

复制代码