字符串首次出现的排名

林间笑客

有这样的文件
2paw pocket6  
2paw pocket5  
2paw pocket1  
2lgs pocket9  
2lgs pocket7  
2lgs pocket28
2lgs pocket26
2lgs pocket17
2lgs pocket16
2lgs pocket15
2lgs pocket13
2lgs pocket1  
2lgs pocket11
2lgs pocket10
2c6q pocket5  
2a3l pocket20
2a3l pocket18
1zkk pocket9  
1zkk pocket8  
1zkk pocket2  
1zkk pocket20
1zkk pocket12
1xup pocket4  
1tsd pocket5  


我想输出  2paw   2lgs .....这样的字符第一次出现的的行，并给出排名，该怎么写，求指教
输出  1  2paw  pocket6     2paw   
        2  2lgs   pocket9     2lgs      
        3   ...             .......

zhlong8

用个hash保存出现的次数，如果是第一次出现记下行号和内容。整个文件处理完后排序打印出来。

wiliiwin

1. #!/usr/bin/perl -w
   
2. my  %hash;
   
3. my  $t=0;
   
4. while(<DATA>)
   
5. {
   
6.   my @a=split;
   
7.   $hash{$a[0]}++;
   
8.   if($t ne $a[0])
   
9.   {
   
10.      $num++;
    
11.   }
    
12.   $t=$a[0];
    
13.   if($hash{$a[0]}==1)
    
14.   {
    
15.      printf  "$num\t@a\n";
    
16. 
    
17.   }
    
18. 
    
19. }
    
20. 
    
21. __DATA__
    
22. 2paw pocket6  
    
23. 2paw pocket5  
    
24. 2paw pocket1  
    
25. 2lgs pocket9  
    
26. 2lgs pocket7  
    
27. 2lgs pocket28
    
28. 2lgs pocket26
    
29. 2lgs pocket17
    
30. 2lgs pocket16
    
31. 2lgs pocket15
    
32. 2lgs pocket13
    
33. 2lgs pocket1  
    
34. 2lgs pocket11
    
35. 2lgs pocket10
    
36. 2c6q pocket5  
    
37. 2a3l pocket20
    
38. 2a3l pocket18
    
39. 1zkk pocket9  
    
40. 1zkk pocket8  
    
41. 1zkk pocket2  
    
42. 1zkk pocket20
    
43. 1zkk pocket12
    
44. 1xup pocket4  
    
45. 1tsd pocket5

复制代码

1. # ./1.pl
   
2. 1        2paw        pocket6
   
3. 2        2lgs        pocket9
   
4. 3        2c6q        pocket5
   
5. 4        2a3l        pocket20
   
6. 5        1zkk        pocket9
   
7. 6        1xup        pocket4
   
8. 7        1tsd        pocket5

复制代码

jason680

回复 1# 林间笑客

$ perl -lane '{print ++$c," @F $F[0]" if(!$h{$F[0]}++)}' FILE
1 2paw pocket6 2paw
2 2lgs pocket9 2lgs
3 2c6q pocket5 2c6q
4 2a3l pocket20 2a3l
5 1zkk pocket9 1zkk
6 1xup pocket4 1xup
7 1tsd pocket5 1tsd


   

清泉一边

一个比较笨但是身内存的方法~试试~

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. my $pre = 0;
   
4. my $i = 1;
   
5. while (<DATA>){ chomp;
   
6. my ($name,$inf) = split /\s+/;
   
7. if ($name ne $pre){
   
8.    print "$i\t$_\t$name\n";
   
9.    $i++;
   
10.   }
    
11. $pre = $name;
    
12. }
    
13. 
    
14. 
    
15. __DATA__
    
16. 2paw pocket6
    
17. 2paw pocket5
    
18. 2paw pocket1
    
19. 2lgs pocket9
    
20. 2lgs pocket7
    
21. 2lgs pocket28
    
22. 2lgs pocket26
    
23. 2lgs pocket17
    
24. 2lgs pocket16
    
25. 2lgs pocket15
    
26. 2lgs pocket13
    
27. 2lgs pocket1
    
28. 2lgs pocket11
    
29. 2lgs pocket10
    
30. 2c6q pocket5
    
31. 2a3l pocket20
    
32. 2a3l pocket18
    
33. 1zkk pocket9
    
34. 1zkk pocket8
    
35. 1zkk pocket2
    
36. 1zkk pocket20
    
37. 1zkk pocket12
    
38. 1xup pocket4
    
39. 1tsd pocket5

复制代码

回复 1# 林间笑客


   

林间笑客

回复 2# walklan


    thank you , I see

林间笑客

回复 4# wiliiwin


    Thanks

林间笑客

回复 6# 清泉一边


    谢谢，逮到老鼠就是好猫