Odd number of elements in hash assignment

yakczh_cu

1. 
   
2. 
   
3. 
   
4. %config = (
   
5.     'loalhost'   => (
   
6.         
   
7.         'username'=>'root',
   
8.         'password'=>'root',
   
9.         
   
10.     ),   
    
11.     'testserver' => (
    
12.         
    
13.         'username'=>'test',
    
14.         'password'=>'test',
    
15.         
    
16.     ),   
    
17.     'onlineserver' => (
    
18.         
    
19.         'username'=>'fwerr',
    
20.         'password'=>'234dsf2vxvdf',
    
21.         
    
22.     )
    
23. );
    
24. 
    
25. 
    
26. while(my($k, $v) = each %config) {  
    
27.    
    
28.     print $k,"\n";
    
29.     while(my($name, $value) = each %$v) {
    
30. 
    
31.   print "\t\t",$name, "=",$value,"\n";
    
32. 
    
33.   }
    
34.    
    
35. }
    

复制代码

内层循环是不是写错了?

MMMIX

回复 1# yakczh_cu


    匿名hash 的定义是 { key => value, ... } ，不是 ( key => value, ... )

substr函数

内层 hash 是写错了 []

1. #!/usr/bin/perl
   
2. use 5.012;
   
3. 
   
4. my %config = (
   
5.     'loalhost' => {
   
6. 
   
7.         'username' => 'root',
   
8.         'password' => 'root',
   
9. 
   
10.     },
    
11.     'testserver' => {
    
12. 
    
13.         'username' => 'test',
    
14.         'password' => 'test',
    
15. 
    
16.     },
    
17.     'onlineserver' => {
    
18. 
    
19.         'username' => 'fwerr',
    
20.         'password' => '234dsf2vxvdf',
    
21. 
    
22.     }
    
23. );
    
24. 
    
25. while ( my ( $k, $v ) = each %config ) {
    
26. 
    
27.     print $k, "\n";
    
28.     while ( my ( $name, $value ) = each %$v ) {
    
29. 
    
30.         print "\t\t", $name, "=", $value, "\n";
    
31. 
    
32.     }
    
33. 
    
34. }
    

复制代码

substr函数

内层 hash 是写错了 []

1. #!/usr/bin/perl
   
2. use 5.012;
   
3. 
   
4. my %config = (
   
5.     'loalhost' => {
   
6. 
   
7.         'username' => 'root',
   
8.         'password' => 'root',
   
9. 
   
10.     },
    
11.     'testserver' => {
    
12. 
    
13.         'username' => 'test',
    
14.         'password' => 'test',
    
15. 
    
16.     },
    
17.     'onlineserver' => {
    
18. 
    
19.         'username' => 'fwerr',
    
20.         'password' => '234dsf2vxvdf',
    
21. 
    
22.     }
    
23. );
    
24. 
    
25. while ( my ( $k, $v ) = each %config ) {
    
26. 
    
27.     print $k, "\n";
    
28.     while ( my ( $name, $value ) = each %$v ) {
    
29. 
    
30.         print "\t\t", $name, "=", $value, "\n";
    
31. 
    
32.     }
    
33. 
    
34. }
    

复制代码

yakczh_cu

回复 2# MMMIX


用 小括号是不是没法描述嵌套的数据格式?


   

MMMIX

回复 5# yakczh_cu


    嗯