コマンドラインからtwitterにpostする
Net::Twitterをそのまま使ってるだけですが、作業中にコマンドラインからtwitterにpostしたりとかしてます。
twittershellを使ってみたりしたけど、ついfriendsとか打ってしまってすぐAPI制限にひっかかるので、、、*1postするだけの自作の簡易スクリプトを使ってます。
/usr/binに置くなどすれば、どこ（のディレクトリ）にいても即postできて地味に便利です。
#!/usr/bin/perl
use strict;
use warnings;
use Net::Twitter;
use Encode;
my $post_text = $ARGV[0] || die "postする内容を第一引数に持たせて下さい";
my $username = 'your twitter nickname';
my $password = 'your twitter password';
my $twit = Net::Twitter->new(
username => $username,
password => $password
);
my $res = $twit->update($post_text);
if ( $twit->http_code != 200 ) {
warn $twit->http_code, " : ", $twit->http_message, " \n";
} else {
print encode("utf8", $res->{text})," とpostしました。\n";
}
__END__しかし、見返すとshellのコマンドラインだとlsとかpwdを打つ感覚で、本当にどうでもいい事を何となくムダに連投してる気がします。少し自重しようかと。*2
