Board logo

标题: [原创代码] 【练习-023】按要求替换文本字符 [打印本页]
作者: sxw    时间: 2011-10-9 15:37     标题: 【练习-023】按要求替换文本字符

本帖最后由 sxw 于 2011-10-22 23:27 编辑 
  1. #!/usr/bin/perl

  2. use strict;

  3. use warnings;

  4. while(<DATA>) {

  5.      next if /^330\d\d5/;

  6.      $_=~s/33(\d\d)(\d\d)/20$1年$2月/g;  

  7. 	 print;

  8. 	 }

  9. __DATA__

  10. 330001--330002--330106

  11. 330001--330006--330108

  12. 330001--330007--330112

  13. 330101--330108--330205

  14. 330101--330110--330212

  15. 330201--330211--330301

  16. 330302--330304--330309

  17. 330302--330308--330402

  18. 330302--330410--330408

  19. 330402--330406--330411

  20. 330505--330511--330807
复制代码




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