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

>>阅读原文<<