xmlrpc.pl
30分プログラム、その29。
今回は、XML-RPCを試してみる。本当は、これで何かをするつもりだったんだけど、これだけで時間切れ。
use warnings; use strict; use RPC::XML; use RPC::XML::Client; use Data::Dumper; sub p(@){ print Dumper(@_); } my $rpc = RPC::XML::Client->new('http://mzp.sakura.ne.jp/wiki/hiki.cgi'); my $page = $rpc->send_request('wiki.getPage','mzp/todo'); print $page->{'value'};