#!/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;
カテゴリー
チャンネル
ニュース
テクノロジーポータルTEDIA パッケージソフトウェアならFind-IT エレクトロニクスならEETimes Japan
| 本サイトのご利用について | お問い合わせ | プライバシーについて | 会社概要 | インプレスグループサイト | インプレスグループTOP |
Copyright ©2004-2009 IMPRESS BUSINESS MEDIA CORPORATION, an Impress Group company. All rights reserved.