[已解决]请各位大虾帮我看看这个 perl 程序

jackiew

各位好！

这有个perl程序，是对last的输出做统计，统计用户总的登录时间和次数，并按字母顺序排序，可为什么我得不要想要的结果？没有任何输出，请各位大虾帮忙看看，谢谢！

2. #!/usr/bin/perl -w
4. while (<>) {
5.     if (/^(\S*)\s*.*\((.*):(.*)\)$/) {
6.         $hours{$1} += $2;
7.         $minutes{$2} += $3;
8.         $logins{$1}++;
9.     }
10. }
11. foreach $user (sort (keys %hours)) {
12.     $hours{$user} += int ($minutes{$user} / 60);
13.     $minutes{$user} %= 60;
14.     print "User $user, total login time ";
15.     printf "%02d:%02d,", $hours{$user}, $minutes{$user};
16.     print "total logins $logins{$user}\n";
17. }

复制代码

last 的输出样例：

2. jackie  pts/1    192.168.2.105  Sat Feb 3 15:54 - 16:20 (00:25)   

复制代码

yanglei1979

perl我看不懂,你怎么不用PHP呀

jackiew

呵呵，我是初学Perl，因为Perl和系统管理的关系更密切一些，所以就选了Perl罗，谢谢你的回复！

b1gm0use

只看了前面几行，后面的没看，你按我说的改改试试

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. while (<>) {
   
5.     if (/^(\S*)\s*.*\((.*):(.*)\)$/) {
   
6.         $hours{$1} += $2;
   
7.         $minutes{$2} += $3; # should be $minutes{$[color="Red"]1[/color]} += $3;
   
8.         $logins{$1}++;
   
9.     }
   
10. }
    
11. foreach $user (sort (keys %hours)) {
    
12.     print "test";
    
13.     $hours{$user} += int ($minutes{$user} / 60);
    
14.     $minutes{$user} %= 60;
    
15.     print "User $user, total login time ";
    
16.     printf "%02d:%02d,", $hours{$user}, $minutes{$user};
    
17.     print "total logins $logins{$user}\n";
    
18. }
    
19. 
    

复制代码

laonainai

建议把*全部改成+。
你这样用*的习惯很容易出错。

jackiew

谢谢楼上各位的回答，问题已经解决，问题出在我的linux的last的输出的每行最后不是以")"结尾，后面还多了四个空格！自然正则表达式匹配不到时间罗，最后的代码如下：

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. while (<>) {
   
5.         if (/^(\S+).*\((\d*)\+?(\d\d):(\d\d)\)/) {
   
6.                 $days{$1} += $2 ? $2 : 0;
   
7.                 $hours{$1} += $3;
   
8.                 $minutes{$1} += $4;
   
9.                 $logins{$1}++;
   
10.         }
    
11. }
    
12. foreach $user (sort(keys %hours)) {
    
13.         $hours{$user} += $days{$user} * 24 + int($minutes{$user} / 60);
    
14.         $minutes{$user} %= 60;
    
15.         print "User $user, total login time ";
    
16.         printf "%02d:%02d, ", $hours{$user}, $minutes{$user};
    
17.         print "total logins $logins{$user}.\n";
    
18. }

复制代码

详情见： http://bbs.chinaunix.net/viewthr ... &extra=page%3D1