求助，根據(jù)需要返回指定數(shù)組內(nèi)容應(yīng)該怎么寫？

dalian_gq

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @SS_A1 = ('KQ1','KH1','KL1');
   
7. my @SS_A2 = ('KQ1','KH1','KL2');
   
8. my @SS_F4 = ('HH1','FF1','TT2');
   
9. #等等，賦值語(yǔ)句還有很多。
   
10. 
    
11. my @input = ('A1','F4');
    
12. 
    
13. 
    
14. foreach my $key (@input){
    
15.   print $key,"\n";
    
16.   print join "\t",@SS_{$key},"\n";   # 這個(gè)不對(duì)，但這行要怎么寫?
    
17.   print '*'x80,"\n";
    
18. }
    
19. 
    
20. 
    
21. 怎樣才能得到下面這個(gè)結(jié)果？
    
22. 
    
23. A1
    
24. KQ1     KH1     KL1
    
25. ********************************************************************************
    
26. F4
    
27. HH1     FF1     TT2
    
28. ********************************************************************************

復(fù)制代碼

quanpai

建議使用哈希結(jié)構(gòu)

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. 
   
7. my %h = (
   
8.   'A1' => ['KQ1','KH1','KL1'],
   
9.   'A2' => ['KQ1','KH1','KL2'],
   
10.   'F4' => ['HH1','FF1','TT2'],
    
11. );
    
12. 
    
13. my @input = ('A1', 'F4');
    
14. 
    
15. foreach my $key (@input){
    
16.   print $key,"\n";
    
17.   print join "\t",@{$h{$key}},"\n";
    
18.   print '*'x80,"\n";
    
19. }
    

復(fù)制代碼

dalian_gq

回復(fù) 2# quanpai

十分感謝，是因?yàn)镻erl的數(shù)組不能這么用，只能用hash嗎？

jason680

回復(fù) 3# dalian_gq

簡(jiǎn)單的說(shuō)......

給“數(shù)值” 得結(jié)果, 可用array(數(shù)組)或hash(哈希)

給"字符串" 得結(jié)果, 用hash(哈希)

你說(shuō)你想怎么用
給(字符串)"王大明"就知(結(jié)果)"電話是138...." 那就是hash哈希唄