请大侠，帮我统计下迟到人次！谢谢

w123456_cu

这次公司迟到记录，希望分部门统计迟到人次。

输入文件：
  姓名         部门
崔小宏        技术科       
张彤小        安保科       
王大                政工科       
王大                政工科       
王安杰        财务科       
王小                政工科
王安杰        财务科
刘中锴        设备科       
王大勇        生产科       


输出文件：
所在部门   迟到总数      姓名    次数
--------------------------------------------
政工科          3            王大      2
                                王小      1
--------------------------------------------
技术科         1            崔小宏     1
---------------------------------------------
财务科         2            王安杰     2
---------------------------------------------
设备科         1            刘中锴     1

w123456_cu

统计<部门>和<姓名> 分别出现的次数，
借鉴 兰花仙子 在 http://bbs.chinaunix.net/thread-676026-1-1.html 使用 hash 办法可实现。

但是，将<姓名>和<部门>关联起来，大家有没有好的思路？

iamlimeng

双层HASH，可以解决，不难。

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. my %hash;
   
6. while (<DATA>) {
   
7.         chomp;
   
8.          my ($name,$dep) = split /\s+/;
   
9.          $hash{$dep}{$name}++;
   
10. }
    
11. foreach my $dep (sort keys %hash) {
    
12.         foreach my $name (sort keys %{$hash{$dep}}) {
    
13.                  print "$dep\t$name\t$hash{$dep}{$name}\n";
    
14.          }
    
15.          print "-"x20,"\n";
    
16. }
    
17. <STDIN>;
    
18. 
    
19. __DATA__
    
20. 崔小宏 技术科
    
21. 张彤小 安保科
    
22. 王大 政工科
    
23. 王大 政工科
    
24. 王安杰 财务科
    
25. 王小 政工科
    
26. 王安杰 财务科
    
27. 刘中锴 设备科
    
28. 王大勇 生产科

复制代码

输出格式，你自己再调整一下吧

rubyish

没有好的思路

w123456_cu

谢谢iamlimeng ， 我得好好理解下双层hash

mcshell

回复 4# rubyish


    神马情况~~围观{:3_199:}

rubyish

mcshell 发表于 2013-01-29 12:04
回复 4# rubyish

神马情况~~围观

有好的思路?