请教思路：如何输出文件中含相同元素的行

sunzhiguolu

回复 1# wand65
你的思路有问题, 之所以处理的时间慢 就是浪费在 第 2 步 循环对比上了, 换个其他的思路试下 应该很快的.

   

wand65

回复 10# RE_HASH
受教


   

sunzhiguolu

回复 6# wand65
试下,

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my ($num, %hStat, @aData) = 0;
   
7. while (<>){
   
8.     my (undef, undef, $id) = split;
   
9.     if (!exists ($hStat{$id})){
   
10.         $hStat{$id} = $num;
    
11.         $aData[$num++] = [$_];
    
12.         next;
    
13.     }
    
14.     push (@{$aData[$hStat{$id}]}, $_);
    
15. }
    
16. 
    
17. print @$_ for @aData;
    

复制代码

wand65

回复 13# sunzhiguolu


    谢谢了，1秒内完成 非常厉害

请问  $aData[$num++]=[$_]  这句怎么解？ $_ 用中括号括起来怎么讲啊

sunzhiguolu

回复 14# wand65
曾经看到过一篇帖子, 对于数组的讲解我感觉非常棒, 希望对您有所帮助.
http://bbs.chinaunix.net/thread-4082528-1-1.html

   

wand65

回复 15# sunzhiguolu


    多谢

251744647

非常好的讲解回复 15# sunzhiguolu


   

aku1

不是一般放hash里做key, $count{$1,$2,$3}++

sunzhiguolu

回复 18# aku1
非常赞!!!