perl函数"timelocal"和"timegm"的区别

 #!/usr/bin/perl
 use warnings;
 use strict;
 use Time::Local;
 
 ## [11/Jun/2012:23:12:03 +0800] -> 12345667 -> 2012-06-11 23:12:03
 
 my %monhash = ("Jan"=>1,"Feb"=>2,"Mar"=>3,"Apr"=>4,"May"=>5,"Jun"=>6,"Jul"=>7,"Aug"=>8,"Sep"=>9,"Oct"=>10,"Nov"=>11,"Dec"=>12);
 sub to_Stand_time {
         my $str = shift @_;
         my ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst) = localtime($str);
         $year = 1900 + $year;
         $mon = $mon + 1;
         return sprintf("%s-%02d-%02d %02d:%02d:%02d",$year,$mon,$day,$hour,$min,$sec);
 }
 while(<>){
         chomp;
         if(m|^\[(\d+)/(\w+)/(\d+):(\d+):(\d+):(\d+)\s+\+\d+\]$|){
                 my($d,$m,$y,$h,$mm,$s)=($1,$2,$3,$4,$5,$6);
                 $m = $monhash{$m};
                 my $ud = Time::Local::timelocal($s,$mm,$h,$d,$m-1,$y-1900);
                 my $dt = to_Stand_time($ud);
                 print STDERR "$_ -> $ud -> $dt\n";
         }
 }