计算时间-shell一题大牛们用perl写个

kernel69

文本：
aaaa        3/20/2013/3:48:26        3/20/2013/3:50:01        dd        10        1
bbbb        3/20/2013/3:48:35        3/20/2013/3:50:01        dd        10        2
aaaa        3/20/2013/3:51:45        3/20/2013/20:24:01        dd        12        1
bbbb        3/20/2013/3:51:52        3/20/2013/20:24:01        ddd        12        2
cccc        3/20/2013/1:10:37        3/21/2013/1:25:38        dd        12        1
bbbb        3/20/2013/1:10:41        3/21/2013/1:25:38        dd        12        2
。。。

需要得到的结果是：{第三列时间-第二列时间}*第六列，最后放在第7列，单位是小时吧。
谢谢@@

stanley_tam

偶试试。。{:3_194:}

1. #!/usr/bin/perl
   
2. use strict;
   
3. use Time::Local;
   
4. 
   
5. $^I = '.bak';
   
6. 
   
7. while (<>) {
   
8.     chomp;
   
9.     my ($t1, $t2, $col6) = (split)[1,2,5];
   
10.     my $col7 = (my_timelocal($t2) - my_timelocal($t1)) * $col6 / 3600;
    
11.     print "$_", ' ' x 8, $col7, "\n";
    
12. }
    
13. 
    
14. sub my_timelocal {
    
15.     my $time = shift;
    
16.     my ($mon,$mday,$year,$hour,$min,$sec) =
    
17.         split m{[/:]}, $time;
    
18.     return timelocal($sec,$min,$hour,$mday,$mon,$year);
    
19. }
    
20. 
    
21. __END__

复制代码