せっかく書いたので、上の記事で出ていた時報の送信に使っているスクリプトを公開します。
以下の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);
10分くらいで作ったので、結構適当です。
dateコマンドの行が何かアレな感じがしますが、まぁ気にしないで下さい。
こういうちょっとしたプログラムを作るのって楽しいですよね。