关联数组使用问题

aaronvox

1. 
   
2. 
   
3. #!/usr/bin/perl
   
4. use Data::Dumper;
   
5. 
   
6. my %TYPE1=
   
7.         (
   
8.         "0"=>"daiyy",
   
9.         "1"=>"suger",
   
10.         );
    
11. 
    
12. my %TYPE2=
    
13.         (
    
14.         "0"=>"zhouxw",
    
15.         "1"=>"zhoul",
    
16.         );
    
17. 
    
18. my %TYPE_FOR=
    
19.         (
    
20.         "0"=>\%TYPE1,
    
21.         "1"=>\%TYPE2,
    
22.         );
    
23. print "$TYPE_FOR{0}{0}\n";
    
24. 
    
25. print Dumper %TYPE_FOR;
    
26. 
    
27. exit 0;
    
28. 
    
29. 
    

复制代码

1. 
   
2. daiyy
   
3. $VAR1 = '1';
   
4. $VAR2 = {
   
5.           '1' => 'zhoul',
   
6.           '0' => 'zhouxw'
   
7.         };
   
8. $VAR3 = '0';
   
9. $VAR4 = {
   
10.           '1' => 'suger',
    
11.           '0' => 'daiyy'
    
12.         };
    

复制代码

aaronvox

perl NB在  你觉得它合理 那他就是合理的 我就这么用的