论坛 › Perl › perl用Time::Local得到时间相差

lfjigu 发表于 2017-5-18 13:05:03

perl用Time::Local得到时间相差

#!/usr/bin/perl
use strict;
use Time::Local;

sub gettimemun(){
   my ($time,$timelc,$sec,$min,$hour,$mday,$mon,$year);
   $time = @_;
   my @time = reverse(split /-|:|\s|\//,$time);
   foreach(@time){
s/^0//;
$timelc .= $_.",";
   }
   $timelc =~ s/,$//;
   ($sec,$min,$hour,$mday,$mon,$year) = split /,/,$timelc;
   print "sec:$sec\n min:$min\n hour: $hour\n mday: $mday\n mon: $mon\n year: $year\n";
$year -= 1900;
$mon -= 1;
$timelc = timelocal($sec,$min,$hour,$mday,$mon,$year);
return $timelc;
}

my $mdatetime="2011-05-19 14:17:20";
my $cdatetime="2011-05-19 15:10:12";
my $mtimesec=&gettimemun($mdatetime);
my $ctimesec=&gettimemun($cdatetime);
my $difminute=int(($ctimesec-$mtimesec));#得到两个时间相差秒数
print $mtimesec." ".$ctimesec." ".$difminute."\n";

查看完整版本: perl用Time::Local得到时间相差