找出重复的代码

yueli7

有一列代码，找出重复的：
Aars
Adams
Atp2
Atp2
Bcf
Def
Def
Grt3
Hgt3

要求找出
Atp2
Def

谢谢！

pengphy

1. cat test.txt | uniq -d
   

复制代码

longbow0

1. 
   
2. my %strs;
   
3. 
   
4. while (<DATA>) {
   
5.     chomp;
   
6.     $strs{$_}++;
   
7. }
   
8. 
   
9. for (keys %strs) {
   
10.     print if ($strs{$_} > 1);
    
11. }
    
12. __DATA__
    
13. Aars
    
14. Adams
    
15. Atp2
    
16. Atp2
    
17. Bcf
    
18. Def
    
19. Def
    
20. Grt3
    
21. Hgt3
    

复制代码

bikong0411

还是uniq简单

rubyish

longbow0 发表于 2012-01-12 02:19
$strs{$_}++;

真巧妙啊，我怎么就想不到。

wxlfh

1. open my $fh,'<',"youfile";
   
2. my (%str,%list,$i);
   
3. while (<$fh>) {
   
4.     chomp;
   
5.     $str{$_}++;
   
6.     if ($str{$_} > 1) {
   
7.         $list{$_} = $i++ if not exists $list{$_};
   
8.     }
   
9. }
   
10. close $fh;
    
11. print "$_\n" for sort {$list{$a} <=> $list{$b}} keys %list;
    

复制代码

这个好处是可以保持重复出现字符的顺序。

lingyun9704

rubyish 发表于 2012-01-12 19:53
真巧妙啊，我怎么就想不到。

   这是《perl语言编程》里提到的方法。

羲之遗韵

uniq威武！

kk861123

wxlfh 发表于 2012-01-13 08:27

文件中若出现三个以上重复的就会多打印，参考修改：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. my %str;
   
5. while (<DATA>) {
   
6.         chomp;
   
7.         print "$_\n" if exists $str{$_} && $str{$_} == 1;
   
8.         $str{$_}++;
   
9. }
   
10. __DATA__
    
11. Aars
    
12. Adams
    
13. Atp2
    
14. Atp2
    
15. Bcf
    
16. Def
    
17. Def
    
18. Def
    
19. Grt3
    
20. Hgt3

复制代码

rubyish

lingyun9704 发表于 2012-01-13 04:52
这是《perl语言编程》里提到的方法。

谢谢老兄指点~~