Board logo

标题: [原创代码] 【练习-010】文本最末列数值乘一个数 [打印本页]

作者: sxw    时间: 2011-10-9 15:43     标题: 【练习-010】文本最末列数值乘一个数

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





欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2