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/,$/

>>阅读原文<<