XMLRPC::Liteモジュールを利用してPerlでの実装。 package Blogpost; use strict; use XMLRPC::Lite; sub new { my $class = shift; return bless {}, $class; } sub post { my ($self, $send_param) = @_; my $result = $self->_call_rpc("metaWeblog.newPost", $param{'xmlrpc_url'}, $send_param->{'blogid'}, $send_param->{'username'}, $send_param->{'password'}, { 'title' => $send_param->{'title'}, 'description' => $send_param->{'d