TumblrのAPIで自動的に投稿できるものを作ろうと思ったのだけどPHPのサンプルはたくさんあるのにPerlのはあんまりない。と思っていたらすでにWWW::Tumblrモジュールなんていうのがあるんですね。特に自分で書く必要もなかったという感じで...。CPANからモジュールをインストールする方法はこちら。
cpan[1]> install -y WWW
cpan[2]> install WWW::Tumblr
こんな感じでOKです。
tumblr APIに関する原文はこちらですが、Perlのことについては何も書いていないと思います。
これ入れてしまったら後は非常に楽です。というか殆ど書くことないです。このサンプルではtextとphotoだけのアップロードですが、他にもいろんなメディアがアップできるはずです。以下を参考にするとよいです。
cpan[1]> install -y WWW
cpan[2]> install WWW::Tumblr
こんな感じでOKです。
tumblr APIに関する原文はこちらですが、Perlのことについては何も書いていないと思います。
これ入れてしまったら後は非常に楽です。というか殆ど書くことないです。このサンプルではtextとphotoだけのアップロードですが、他にもいろんなメディアがアップできるはずです。以下を参考にするとよいです。
- Tumblr API (English)
- Tumblr API (日本語訳) 計算因難ニッキのcoro_1729さんの和訳
#!/usr/bin/perl
use WWW::Tumblr;
use strict;
my $tumblr = WWW::Tumblr->new;
$tumblr->email('user@omnioo.com');
$tumblr->password('userspassword');
my $res = $tumblr->write(
# Regular text
type => 'regular',
title => 'PerlからもAPIで投稿できますね。',
body => 'PerlからもAPIで投稿できますね。しかしなんでこんなに投稿して反映されるまでのタイムラグがあるんでしょうか。',
# Photo
#type => 'photo',
#data => './001.jpg',
#caption => '001.jpg',
);
print "Content-type: text/html\n\n";
if ($res) {
print "It has done for writing.";
} else {
print "Failer !";
}
exit;



