Skip to main content

feneth tool's Library tagged perl →  View Popular

08 Nov 08

Big Sky :: はてなAtompub APIで下書きをゴニョゴニョしてみた。




  • use strict;

    use warnings;



    use Atompub::Client;

    use XML::Atom::Entry;

    use utf8;



    my $username = 'xxxxxxxxxxxxxxxxxx';

    my $password = 'xxxxxxxxxxxxxxxxxx';

    my $uri = "http://d.hatena.ne.jp/$username/atom/draft";



    my $client = Atompub::Client->new;



    $client->username($username);

    $client->password($password);



    # 下書きを一覧

    my @entries = $client->getFeed($uri);

    for my $entry (@entries) {

        next if not $entry->id;

        warn $entry->link->href."\n".$entry->title."\n\n";

    }



    # 新規下書きエントリ

    my $entry = XML::Atom::Entry->new;

    $entry->title('下書きテスト');

    $entry->content('はてダで下書き');

    my $entry_uri = $client->createEntry($uri, $entry);

    warn $client->errstr||'\n';



    # 下書きを上書き

    $entry->content('はてダで下書きを上書き');

    $client->updateEntry($entry_uri, $entry);



    # 下書きを削除

    $client->deleteEntry($entry_uri);



    # 公開用に新規下書きエントリ

    $entry = XML::Atom::Entry->new;

    $entry->title('下書き公開テスト');

    $entry->content('はてダの下書きを公開してみるテスト');

    $entry_uri = $client->createEntry($uri, $entry);

    warn $client->errstr||'\n';



    # 下書きを公開

    $client->ua->default_header('X-HATENA-PUBLISH' => 1);

    $client->updateEntry($entry_uri, $entry);
1 - 7 of 7
Showing 20▼ items per page

Selected Tags

Related Tags

Sponsored Links

Ads by Google

Highlighter, Sticky notes, Tagging, Groups and Network: integrated suite dramatically boosting research productivity. Learn more »

Join Diigo