Perl怎样修改日期时间格式？

Perl

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

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

sxw

进行替换不行吗？

lllsoslll

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. 
    
16. while(<DATA>){
    
17.         ($m,$d,$y,$t) = /(\w+)\s(\d+)\s(\d+)\s(.*)/;
    
18.         print "$y-$months{$m}-$d $t\n";
    
19. };
    
20. 
    
21. __DATA__
    
22. Dec 23 2011 22:41:46
    
23. Dec 23 2011 22:33:46
    
24. Aug 3 2012 22:41:46

复制代码