求教，perl如何实现时间相减，在线等

yuqinghua1982

if ( -e "/mezi/sem/semdata/google/smarter/revenue/revenue_$today.dat"){
        my $mtime1=(stat("/mezi/sem/semdata/google/smarter/revenue/revenue_$today.dat"))[9];
        my @t1=localtime $mtime1;
                my $date1 = sprintf "%02u/%02u/%02u %02u:%02u:%02u", $t1[4]+1, $t1[3], $t1[5]+1900, $t1[2], $t1[1], $t1[0];
                print FileTime "SMUS", "\t" ,$date1,"\t",$a,"\n";
我得出的结果是：SMUS    2011-09-21 15:23:17     2011-09-21 23:01:28 ，我想得出SMUS    2011-09-21 15:23:17     2011-09-21 23:01:28  5:48:01这样的格式
求教：如何实现2011-09-21 23:01:28 -2011-09-21 15:23:17  ，不甚感激。

兰花仙子

if ( -e "/mezi/sem/semdata/google/smarter/revenue/revenue_$today.dat"{
        my $mtime1=(stat("/mezi/se ...
yuqinghua1982 发表于 2011-09-22 15:57

    Time::Local

txh_zyy

转成时间戳

yuqinghua1982

回复 2# 兰花仙子


    可否详细点，谢谢啊

FangyuanCheng

回复 1# yuqinghua1982

1. 
   
2. use Date::Format;
   
3. use Date::Parse;
   
4. 
   
5. my $time1 = "2011-09-21 23:01:28";
   
6. my $time2 = "2011-09-21 15:23:17";
   
7. print time2str("%H:%m:%S", str2time($time1) - str2time($time2));
   
8. print "You're so lazy. Google it.\n";

复制代码

txh_zyy

回复  yuqinghua1982
FangyuanCheng 发表于 2011-09-22 18:03

print 亮了，

alexru

Time::Local
兰花仙子 发表于 2011-09-22 16:58

仙子，好久不见了，还在美国吗？

兰花仙子

仙子，好久不见了，还在美国吗？
alexru 发表于 2011-09-22 21:05

    早回来啦。

yuqinghua1982

回复 5# FangyuanCheng



   昨天我用了笨办法。把数据库里的时间select UNIX_TIMESTAMP(createtime)  from PerformanceImportLog 转换成纪元秒，然后相减，然后再转换成时间格式。。。。。。


    你的这个简洁多了，多谢多谢啊，昨天没看到，教训得是啊。thanks your print