求启动时间（已解决）

zfwslf

假如知道一个程序的运行时间为  
形式是这样：5-04:31:29
5 为天数
后面的是 运行的时间数
怎样求运行时间呢？ 下面是我错误的代码

1. #!/usr/bin/perl
   
2. use strict;
   
3. use Time::Local;
   
4. use POSIX qw(strftime);
   
5. 
   
6. my $run_time = "5-04:31:24";
   
7. my $process_up_time = &check_up_time($run_time);
   
8. print "运行时间：$process_up_time";
   
9. 
   
10. sub check_up_time
    
11. {
    
12.    my $run_time = shift;
    
13.    $run_time =~ /^(\d+)?\-?(\d+)?\:(\d+)?\:(\d+)/;
    
14.    my $uptime_stamp = $1*60*60*24 + $2*3600 + $3*60 + $4;
    
15.    my $now_stamp = localtime;
    
16.    my $differ_stamp = $now_stamp - $uptime_stamp ;
    
17.    my $process_up_time = strftime "%Y-%m-%d %H:%M:%S" , localtime($differ_stamp);
    
18.    return $process_up_time;
    
19. }

复制代码

zfwslf

回复 1# zfwslf
我把time 写成localtime了...