15行でできる現在時刻をつぶやくtwitter botの作り方

突然ですが、プログラム詳しくないけど perlでbot作りたい！と言う方がいらしたので、twitter botの作り方を簡単に書きます。
簡単なところで、現在時刻をつぶやくtwitter botのレシピです。

用意するもの

• cronが設定できるサーバ
• perlが動くサーバ(/usr/bin/perl など)
• 以下のperlモジュール
  • Net::Twitter
  • Jcode

コード

ファイル名は twitter.pl などにしましょう。
7行目でアカウントを設定しています→ http://twitter.com/pen2_

#!/usr/bin/perl -w
use strict;
use Net::Twitter;
use Jcode;

my $twit = Net::Twitter->new(
    username=>"pen2_", 
    password=>"*********"
);

my $time = localtime;
my $text = "現在時刻は $time です♪";

Jcode::convert(\$text, 'utf8');
$twit->update($text);

実行権限を付与する

twitter.pl に実行権限を付与します。FTPで転送するときに 755 とかにする設定のことです。

$ chmod +x twitter.pl 

cronに登録する

レンタルサーバによっていろいろ有りますが、毎時0分に実行したい場合は以下のようにします。

0 * * * * /home/kazuya/twitter.pl

これで完成ですー。簡単でしょ？
あとは $text 変数に素敵な値をセットするだけです。