关于 hash的问题。

lala-flag

use XML::RPC;
my $xmlrpc = XML::RPC->new('http://betty.userland.com/RPC2');
my @params = { state1 => 10, state2 => 28, state3=>10 };
my $result = $xmlrpc->call( 'examples.getStateStruct', @params );

上面的程序是XML::RPC的例子程序，能够运行，而且能够取回正确的结果。

但是有个问题，一直比较奇怪 ，这个 @params 是什么类型的数据？
我通过一些方法都不能得到里面的数值。
如何能够遍历 @params里面的键值对？？

hitsubunnu

1. 
   
2. 
   
3. use Data::Dumper;
   
4. print Dumper(@params);
   
5. 
   

复制代码

撒哈拉里的鱼

所以我经常说CU的很多人缺少解决问题的思路。
看我的注释掉的代码应该就明白了。
本来我也是不知道的，但是我这么做之后，就知道了。

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. use Data::Dumper;
   
7. 
   
8. #my @params = ( { state1 => 10, state2 => 28, state3=>10 }, { a=>10 } );
   
9. 
   
10. #print Dumper(@params);
    
11. 
    
12. my @params = { state1 => 10, state2 => 28, state3=>10 };
    
13. 
    
14. foreach my $tmp( @params )
    
15. {
    
16.         my %tmp_hash = %{ $tmp };
    
17.         foreach my $key( keys %tmp_hash )
    
18.         {
    
19.                 print $key."=>".$tmp_hash{$key}."\n";
    
20.         }
    
21. }
    

复制代码

撒哈拉里的鱼

补充一下。
LZ的这个代码写得不规范，所以有这样的疑惑。

hitsubunnu

1. 
   
2. 
   
3. use XML::RPC;
   
4. 
   
5.     my $xmlrpc = XML::RPC->new('http://betty.userland.com/RPC2');
   
6.     my $result = $xmlrpc->call( 'examples.getStateStruct', { state1 => 12, state2 => 28 } );
   
7. 
   

复制代码

这才是cpan上的原例

[ 本帖最后由 hitsubunnu 于 2008-9-10 18:44 编辑 ]

撒哈拉里的鱼

就算是原例，也有写得太晦涩了的。

redicaps

{ state1 => 10, state2 => 28, state3=>10 } 创建一个hash的引用
@param=...  赋值到数组,即把这个引用放到$param[0]

取值可以
$param[0]->{state1}

看这个
perlreftut - Mark's very short tutorial about references
http://bbs.chinaunix.net/viewthr ... p%3Bfilter%3Ddigest

khandielas

有些基本原则记住就好了

@xxx一定是一个array了， 给array赋值就是一个list

{ } 一定是一个 hash reference

上面的写成 @param = ( {....} ); 估计大伙都懂了。

但是Perl Hacker大部分都被Larry带坏了， 追求简捷， 整的云山雾罩的

bulletming

如果实际意义是那个，这么写确实不好