tumblrにポストをPerlで

 TumblrのAPIで自動的に投稿できるものを作ろうと思ったのだけどPHPのサンプルはたくさんあるのにPerlのはあんまりない。と思っていたらすでにWWW::Tumblrモジュールなんていうのがあるんですね。特に自分で書く必要もなかったという感じで...。CPANからモジュールをインストールする方法はこちら
cpan[1]> install -y WWW
cpan[2]> install WWW::Tumblr
こんな感じでOKです。
tumblr APIに関する原文はこちらですが、Perlのことについては何も書いていないと思います。

 これ入れてしまったら後は非常に楽です。というか殆ど書くことないです。このサンプルではtextとphotoだけのアップロードですが、他にもいろんなメディアがアップできるはずです。以下を参考にするとよいです。

#!/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;






プロフィール



  • Name :: 山上オサム ♂(37)
  • Hobby :: 武術
  • Work :: Web Designer