[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] Perl怎样修改日期时间格式?

比如文本内容如下:
Dec 23 2011 22:41:46

希望改成:
2011-12-23 22:41:46

进行替换不行吗?

TOP

  1. %months = (
  2.       Jan => 0,
  3.       Feb => 1,
  4.       Mar => 2,
  5.       Apr => 3,
  6.       May => 4,
  7.       Jun => 5,
  8.       Jul => 6,
  9.       Aug => 7,
  10.       Sep => 8,
  11.       Oct => 9,
  12.       Nov => 10,
  13.       Dec => 11,
  14. );
  15. while(<DATA>){
  16. ($m,$d,$y,$t) = /(\w+)\s(\d+)\s(\d+)\s(.*)/;
  17. print "$y-$months{$m}-$d $t\n";
  18. };
  19. __DATA__
  20. Dec 23 2011 22:41:46
  21. Dec 23 2011 22:33:46
  22. Aug 3 2012 22:41:46
复制代码
SOS --- >> lllsoslll@163.com

TOP

返回列表