秒 转换至 天-时-分-秒

netherunix

1. sub SecToDay {
   
2.     $sec = shift;
   
3.     $dayofsec = 3600 * 24;
   
4.     $day = $sec / $dayofsec;
   
5.     if ($day =~ m/(\d+).?(\d+)?/){
   
6.         $day = $1;
   
7.         $day = $day < 10 ? '0'."$day" : "$day";
   
8.         $day_tmp = $2;
   
9.         $hour = (sprintf "0.$day_tmp") * 24;
   
10.         if ($hour =~ m/(\d+).(\d+)/){
    
11.             $hour = $1;
    
12.             $hour = $hour < 10 ? '0'."$hour" : "$hour";
    
13.             $hour_tmp = $2;
    
14.             $min = (sprintf "0.$hour_tmp") * 60;
    
15.             if ($min =~ m/(\d+).(\d+)/){
    
16.                 $min = $1;
    
17.                 $min_tmp = $2;
    
18.                 $sec = (sprintf "0.$min_tmp") * 60;
    
19.                 if ($sec =~ m/(\d+).(\d+)/){
    
20.                     $sec = $1;
    
21.                     $sec = $sec < 10 ? '0'."$sec" : "$sec";
    
22.                 }
    
23.              }
    
24.          }
    
25.     }
    
26.     return ("[$day]天[$hour]时[$min]分[$sec]秒.");
    
27. }

复制代码

程序比较初级 ，但是原创哦！呵呵！望大侠指点！

laputa73

我理解错了,还以为是unix 秒转成字符串.
原来就是单位转换.

iamlimeng

确实有点复杂了，而且还有BUG，结果很容易出错。

1. sub SecToDay {
   
2.     my $sec = shift;
   
3.     my $day = int($sec / 86400);
   
4.     my $hour = int($sec % 86400 / 3600);
   
5.     my $min = int($sec % 86400 % 3600 / 60);
   
6.     my $second = $sec % 86400 % 3600 % 60;
   
7.     return ("[$day]天[$hour]时[$min]分[$second]秒.");
   
8. }

复制代码

其实还可以写成一行。