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;
そろそろやっていかないとな...いろいろと(笑