Blog更新pingクライアントのPerlでの実装

Perl


使っているRSSリーダでこの日記の更新がちょっと遅かったので、ちょこっと作ってみた。

#!/usr/local/bin/perl
use strict;
use warnings;

use XMLRPC::Lite;

my $name  = 'spiritlooseのはてなダイアリー';
my $uri   = 'http://d.hatena.ne.jp/spiritloose/';
my $proxy = 'どこか'; 

my $result = XMLRPC::Lite
    ->proxy($proxy)
    ->call('weblogUpdates.ping', $name, $uri)
    ->result;

while (my ($key, $val) = each %$result) {
    print "$key=$val\n";
}

簡単だなあ。。。


Apache::XMLRPC::Lite を使えばサーバの実装もすごく簡単。


参考：http://www.xmlrpc.com/weblogsCom