RSS Pingの送信（XMLRPC::Lite）
ここでは、XMLRPC::Liteモジュールを使ってRSS Pingを送信する方法を説明したいと思います。
RSS Ping送信サンプル
ブログ名、ブログURL、RSS URL、Ping先などを変更してご利用下さい。
#!/usr/bin/perl
use XMLRPC::Lite;
# ここを変更して下さい
$title = 'blog title';
$url = 'http://blogurl-hoge.jp/';
$rss = 'http://blogurl-hoge.jp/rss.xml';
$pingurl = 'http://rpc.reader.livedoor.com/ping';
$result = XMLRPC::Lite
->proxy($pingurl)
->call('weblogUpdates.extendedPing',
$title, $url, $url, $rss);
print $pingurl;
print "\n";
print $result;
print "\n";
exit;