様々な「ログ」を蓄積する場所として tumblr を活用していこうと考えていて、まずは tumblr に投稿するプログラムの雛形を作った。言語は Perl。

#!/usr/bin/perl
use strict;
use warnings;
use HTTP::Request::Common;
use LWP::UserAgent;

my $api_url = "http://www.tumblr.com/api/write";
my $email = 'yto@example.com';
my $password = 'PASSWORD';
my $group = "ytotumblrapitest.tumblr.com";
my $date = "2010-01-01";

my $type;
$type = "quote";
$type = "link";
$type = "regular";

### regular
my $title = "たつをの ChangeLog";
my $body = "アルファブロガー（笑）<br>チェンジログ（笑）<br>ご長寿ブロガー（笑）";

### link
my $name = "たつをの ChangeLog";
my $url = "http://chalow.net/";
my $description = "アルファブロガー（笑）";

### quote
my $quote = "主にコンピュータ技術者向けの話題を提供し続ける情報サイトです。";
my $source = qq(<a href="http://chalow.net/">たつをの ChangeLog</a> だよ！);
#my $source = "http://chalow.net/";

my $req = HTTP::Request::Common::POST(
    $api_url,
    [
     email => $email,
     password => $password,
#     date => $date,
     group => $group,
     type => $type,
     name => $name,
     url => $url,
     description => $description,
     title => $title,
     body => $body,
     quote => $quote,
     source => $source,
    ]
    );

my $ua = LWP::UserAgent->new();
my $res = $ua->request($req);
#use Data::Dumper; print Dumper($res),"\n";

print "$res->{_rc} http://$group/post/$res->{_content}\n";

テスト用の blog を作成した。
- yto tumblr api test
http://ytotumblrapitest.tumblr.com/

tumblr の API はオフィシャルのドキュメントを参考。
- API | Tumblr
http://www.tumblr.com/docs/api

「use utf8」有無問題に悩まされたのでメモ。
- HTTP::Request::CommonのPOST処理で日本語が欠落した件 (We All Get Old - Naskin Diary)
http://d.hatena.ne.jp/naskin/20100213/1266065679

参考にしたスクリプト。
- [を] 「Google Analytics API を Perl から扱うスクリプト」の標準モジュール使用版[2009-10-21-3]

ref.
- Perlメモ/WWW::Tumblrモジュール (Walrus, Digit.)
http://bit.ly/9vuezl
（Perlモジュールあり。）