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}};
こんな感じー。