twit on perl

今日は何もできなかったので、せめてもで久しぶりのPerlを触った。

usage:

twit.pl Hello,World

で、「Hello,World」と、つぶやけます.(以下、ソース

と言いつつ、下記をパクっただけです。

のめしこきの日々: メールでTwitterに投稿するPerlスクリプト

twit.pl

#!/usr/bin/perl

use strict;
use LWP::UserAgent;
use Data::Dumper;

my $id = "userid";
my $pass = "password";

my $msg = $ARGV[0];

my $uri = "http://twitter.com/statuses/update.xml";

my $req = HTTP::Request->new(POST=>$uri);
$req->authorization_basic($id,$pass);
$req->content("status=".$msg);

my $ua = LWP::UserAgent->new(agent=>'Mozilla/5.0',keepalive=>4);
my $res = $ua->request($req);

my $status = $res->status_line;

if($res->is_success){ 
    print "success"; 
}else{ 
    print $status; 
} 

1;

そろそろやっていかないとな...いろいろと(笑