怎样将其转换为hash结构呀~

linghu002127

数据如下：

1. CD4-H2AK5ac        1000
   
2. CD4-H2AK5ac        15008
   
3. CD4-H2AK5ac        24000
   
4. CD4-H2BK5ac        25000
   
5. CD4-H2BK5ac        29000
   
6. CD4-H2BK5ac        40001
   
7. CD4-H4K12ac        40008
   
8. CD4-H4K12ac        50005
   
9. CD4-H4K12ac        80034
   
10. H4R3me2        24000
    
11. H4R3me2        25000
    
12. H4R3me2        50005

复制代码

问题：
1)该两列能放进一个hash而不丢掉任何一个数据吗？因为hash要求key值唯一，但是这两列都有相同的，第一列不用说，如第二列24000，25000等在2个地方出现了。就我现在的perl水平，感到无论选那一列为键，有些数据都输不出来。

2)如果hash不行，那么采用其他方法怎样能做到这样：比如知道第一列中的CD4-H2BK5ac，就能输出其后边对应的数字。总之，知道相应的第一列文件名，对应的数字能依次给出(存数组或输出都可以，我想用他们做比较),但是文件名只出现一次。如下

1. CD4-H2AK5ac        
   
2. 1000
   
3. 15008
   
4. 24000
   
5. 
   
6. H4R3me2       
   
7. 24000
   
8. 25000
   
9. 50005

复制代码

xfoucs

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. my @arr;
   
5. while(<DATA>)
   
6. {
   
7.     push @arr,[split];
   
8. }
   
9. for(@arr)
   
10. {
    
11.     print "$_->[0] => $_->[1]\n";
    
12. }
    
13. 
    
14. __DATA__
    
15. CD4-H2AK5ac        1000
    
16. CD4-H2AK5ac        15008
    
17. CD4-H2AK5ac        24000
    
18. CD4-H2BK5ac        25000
    
19. CD4-H2BK5ac        29000
    
20. CD4-H2BK5ac        40001
    
21. CD4-H4K12ac        40008
    
22. CD4-H4K12ac        50005
    
23. CD4-H4K12ac        80034
    
24. H4R3me2        24000
    
25. H4R3me2        25000
    
26. H4R3me2        50005
    

复制代码

beginninger

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. my $hash = {};
   
6. 
   
7. while ( <DATA> )
   
8. {
   
9.         if(  m/(\S*)\s*(\S*)/ )
   
10.         {               
    
11.                 $hash->{$1} = [] unless exists $hash->{$1};               
    
12.                 push @{$hash->{$1}} ,$2;               
    
13.         }       
    
14. }
    
15. 
    
16. foreach my $item (sort keys %{$hash} )
    
17. {       
    
18.         foreach my $arryitem ( @{$hash->{$item}} )
    
19.         {
    
20.                 print $item ,':',$arryitem,"\n";
    
21.         }       
    
22. }
    
23. 
    
24. __DATA__
    
25. CD4-H2AK5ac        1000
    
26. CD4-H2AK5ac        15008
    
27. CD4-H2AK5ac        24000
    
28. CD4-H2BK5ac        25000
    
29. CD4-H2BK5ac        29000
    
30. CD4-H2BK5ac        40001
    
31. CD4-H4K12ac        40008
    
32. CD4-H4K12ac        50005
    
33. CD4-H4K12ac        80034
    
34. H4R3me2        24000
    
35. H4R3me2        25000
    
36. H4R3me2        50005
    
37.        

复制代码

xfoucs

回复 1# linghu002127

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. #use Data::Dumper;
   
4. my @temp;
   
5. my %hash;
   
6. while(<DATA>)
   
7. {
   
8.     push @{$hash{(split)[0]}},(split)[1];
   
9. }
   
10. 
    
11. for(keys %hash)
    
12. {
    
13.     @temp=@{$hash{$_}};
    
14.     print $_," => @temp\n";
    
15. }
    
16. 
    
17. #print Dumper %hash;
    
18. 
    
19. __DATA__
    
20. CD4-H2AK5ac        1000
    
21. CD4-H2AK5ac        15008
    
22. CD4-H2AK5ac        24000
    
23. CD4-H2BK5ac        25000
    
24. CD4-H2BK5ac        29000
    
25. CD4-H2BK5ac        40001
    
26. CD4-H4K12ac        40008
    
27. CD4-H4K12ac        50005
    
28. CD4-H4K12ac        80034
    
29. H4R3me2        24000
    
30. H4R3me2        25000
    
31. H4R3me2        50005
    

复制代码

linghu002127

回复 4# xfoucs


    2,3楼的方法都能完整输出数据，但是就是还是会使字符串名 CD4-H2AK5ac        H4R3me2多次出现，只想出现一次，而且要对应输出。例如给定CD4-H2AK5ac ，就只输出
      
1000
15008
24000


4楼方法正确~
谢谢大家~~

PfanAya

二楼用的是re匹配，三楼用的是split函数。

二楼的代码改一下也符合。

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. my $hash = {};
   
6. my @temp;
   
7. 
   
8. while ( <DATA> )
   
9. {
   
10.         if(  m/(\S*)\s*(\S*)/ )
    
11.         {               
    
12.                 $hash->{$1} = [] unless exists $hash->{$1};               
    
13.                 push @{$hash->{$1}} ,$2;               
    
14.         }        
    
15. }
    
16. 
    
17. for (keys %$hash )
    
18. {
    
19.     @temp = @{$hash->{$_}};
    
20.     print $_, "=> @temp \n"
    
21. }
    
22. 
    
23. 
    
24. __DATA__
    
25. CD4-H2AK5ac        1000
    
26. CD4-H2AK5ac        15008
    
27. CD4-H2AK5ac        24000
    
28. CD4-H2BK5ac        25000
    
29. CD4-H2BK5ac        29000
    
30. CD4-H2BK5ac        40001
    
31. CD4-H4K12ac        40008
    
32. CD4-H4K12ac        50005
    
33. CD4-H4K12ac        80034
    
34. H4R3me2        24000
    
35. H4R3me2        25000
    
36. H4R3me2        50005
    

复制代码

justlooks

第1列为键，键值为数组引用，数组放第2列值