Perl日記

日々の知ったことのメモなどです。Perlは最近やってないです。

XML-RPCの文字列パース

XML-RPC形式で送られてきたレスポンスをパースする。

use LWP::UserAgent;
use RPC::XML::Parser;

my $url = 'http://localhost/test.cgi';

my $ua = LWP::UserAgent->new;
my $res = $ua->post($url);

my $parser = RPC::XML::Parser->new;
my $xml_rpc = $parser->parse($res->content);

# debug
require Data::Dumper;
print Data::Dumper::Dumper($xml_rpc);

print ${$xml_rpc->value->{something}};

こんな感じー。