my $blogid = '0';
my $username = 'mail@desu';
my $password = '貴方のパスワード';
my $proxyurl = "http://blog.fc2.com/xmlrpc.php";
my $title="タイトル";
my $contents="内容です";
#$title = encode('utf-8', $title);
#$contents = encode('utf-8', $contents);
my $msgresult = XMLRPC::Lite
-> proxy($proxyurl)
-> call('metaWeblog.newPost', $blogid, $username, $password,
{
'title' => XMLRPC::Data->type('string', $title),
'description' => XMLRPC::Data->type('string', $contents),
},
1 #publish
)
-> result;
スポンサーサイト