perl - 如何在 perl 中解析来自 RPC::XML 的答案

Question

我正在发送 RPC::XML 请求并得到正确的回复。但不知道如何以正确的方式解析响应。这是我的代码：

use RPC::XML;
use RPC::XML::Client;

my $value = "something";

my $rpc_value = RPC::XML::string->new($value);
my $req = RPC::XML::request->new('service.makeGood',$rpc_value, $URL);

my $client = RPC::XML::Client->new($CLI);
my $responce =$client->send_request($req);

当我做 Dumper 响应时，我看到以下内容：

$VAR1 = bless( [
             bless( do{\(my $o = 0)}, 'RPC::XML::boolean' ),
             bless( do{\(my $o = 'some reply')}, 'RPC::XML::string' )
           ], 'RPC::XML::array' );

我如何解析 的值bless( do{\(my $o = 0)}, 'RPC::XML::boolean' )？所以我需要看看它是真是假。

Answer 1

value()在数据结构上使用方法。

Answer 2

value() - 有效。

也可以使用返回值数组的simple_request ()代替send_request() 。以下变体是相等的：

my $responce = $client->send_request($req);
my $value = @$responce[0]->value();

或者

my $responce = $client->simple_request($req);
my $value =  @$responce[0];