字符串首次出現(xiàn)的排名

林間笑客

有這樣的文件
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 .....這樣的字符第一次出現(xiàn)的的行，并給出排名，該怎么寫，求指教
輸出  1  2paw  pocket6     2paw   
        2  2lgs   pocket9     2lgs      
        3   ...             .......

zhlong8

用個hash保存出現(xiàn)的次數(shù)，如果是第一次出現(xiàn)記下行號和內(nèi)容。整個文件處理完后排序打印出來。

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

復(fù)制代碼

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

復(fù)制代碼

jason680

回復(fù) 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


   

清泉一邊

一個比較笨但是身內(nèi)存的方法~試試~

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

復(fù)制代碼

回復(fù) 1# 林間笑客


   

林間笑客

回復(fù) 2# walklan


    thank you , I see

林間笑客

回復(fù) 4# wiliiwin


    Thanks

林間笑客

回復(fù) 6# 清泉一邊


    謝謝，逮到老鼠就是好貓