metaWeblog.getRecentPosts.pl

#!/usr/bin/env perl

use strict;
use warnings;
use XML::RPC;
use Data::Dumper;

my $blogid   = 'xxxxxxx';
my $username = 'xxxxxxx';
my $password = 'xxxxxxx';
my $number   = shift || 10;
my $endpoint = 'http://blog.example.com/username/api/';

my $x    = XML::RPC->new($endpoint);
my @data = $x->call( 'metaWeblog.getRecentPosts',
    $blogid, $username, $password, $number, );
print Dumper(@data);

metaWeblog APIを利用してMyOpera Blogから記事データを取得する方法