twitterに投稿するサブルーチン。
use LWP::UserAgent;
sub post2twitter {
my ($id, $pass, $msg) = @_;
my $twitter_url = 'http://twitter.com/statuses/update.xml';
my $ua = LWP::UserAgent->new or return;
$ua->credentials('twitter.com:80', 'Twitter API', $id => $pass);
my $res = $ua->post($twitter_url, { status => $msg });
return "Post to Twitter FAILED!" unless $res->is_success;
return "Post to Twitter OK.";
}
&post2twitter($id, $pass, $msg_utf8);
