すばらしい記事です ;-) CPAN モジュールつかいまくりの XML-RPC Ping Server づくり。Class::DBI もつかってますねー。
WEB+DB PRESS のワタシの記事をよむとこんなことが簡単に学習できるようになります(ぉ
NDO::Weblog: Weblogs.Com changes.xml を吐いたりする Ping サーバの Perl 実装
DB には MySQL を使い、Class::DBI を使ってデータの出し入れを行います。Class::DBI はデータベースを使って永続オブジェクトを実現するための CPAN モジュールで、SQL をほとんど書かずに DB を操作できるというかなり便利なクラスです。EJB の Entity Bean のようなことを Perl で手軽に実現できるクラスと言えば分かりやすいかもしれません。
Ping の受信時、ウェブログの名前とその URL が XML-RPC リクエストの引数として渡ってきます。この情報を Class::DBI で保存しておき、3. 3. の changes.xml の作成その他で利用します。
changes.xml を作るだけでは面白くないので、Ping を受け取ったら、逆に今度は送信元のコンテンツから記事のタイトルを取ってくるような処理 ...