Twitterに(PDTの)時報を投稿するスクリプト

せっかく書いたので、上の記事で出ていた時報の送信に使っているスクリプトを公開します。

以下のPerlスクリプトを使って時報をTwitterに投稿しています。
実行にはNet::TwitterとJcodeが必要です。
cronを使ってこれを毎時0分に実行しています。

jihou_pdt.pl

#!/usr/bin/perl -w

use strict;
use warnings;
use Net::Twitter;
use Jcode;

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

my $str = `LC_ALL=C TZ=/usr/share/zoneinfo/PST8PDT /bin/date "+%Y/%m/%d %H:%M (PDT)"`;
chomp($str);
Jcode::convert(\$str, 'utf8');

$twit->update($str);