楽：地図さえあれば

はてなブックマークにポストする

#!/usr/bin/perl
use strict;
use warnings;
use XML::Atom::Client;
use XML::Atom::Entry;
use XML::Atom::Link;

my $api = XML::Atom::Client->new;
$api->username('ユーザー名');
$api->password('パスワード');

my $collection_uri = 'http://b.hatena.ne.jp/atom/post';
my $uri = '登録するエントリのURI';
my $comment = 'コメント';

my $link = XML::Atom::Link->new;
$link->type('text/html');
$link->rel('related');
$link->href($uri);
my $entry = XML::Atom::Entry->new;
$entry->add_link($link);
$entry->add(undef,'summary',$comment,{type => 'text/plain'});
my $member_uri = $api->createEntry($collection_uri, $entry);

my $posted_entry = $api->getEntry($member_uri);
print $posted_entry->as_xml;

[ThinkIT] 第5回：AtomPP を利用したWeb API (1/2)

「処理としては簡単で、XML::Atom::Entryのインスタンスとして登録情報を作成し、それをXML::Atom::Clientを使って登録（新規エントリの作成）しているだけです。はてなブックマークのAPIでは、登録するエントリのURIはlink要素として指定するので、XML::Atom::Entryを使って生成し、それをエントリオブジェクトに加えています。コメントはsummary要素として渡します。」