perl 计算时间间隔

残缺极品

#计算时间间隔
sub gettimemun(){
   my ($time,$timelc,$sec,$min,$hour,$mday,$mon,$year);
   $time = @_[0];
   my @time = reverse(split /-|:|\s|\//,$time);
   foreach(@time){
   s/^0//;
   $timelc .= $_.",";
   }
   $timelc =~ s/,$//;
   ($sec,$min,$hour,$mday,$mon,$year) = split /,/,$timelc;
   $year -= 1900;
   $mon -= 1;
   $timelc = timelocal($sec,$min,$hour,$mday,$mon,$year);
   return $timelc;
}
#计算天数(比较的时间格式： 2011-11-10 15:37:58)
$SECOND_OF_ONE_DAY=24*60*60;
$days= int((&gettimemun($nowtime) - &gettimemun($oldtime))/$SECOND_OF_ONE_DAY);