【news】ニュース速報運用情報683【ν】

簡単な2ch書き込みスクリプト

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use HTTP::Cookies;

$ua = LWP::UserAgent->new();
$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 6.1; ja; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13');
$ua->cookie_jar(HTTP::Cookies->new(file => "c.txt", autosave => 1));
$req = POST "http://qb5.2ch.net/test/bbs.cgi?guid=ON",
[ bbs => "operate", key => "1292916084", time => "1104688508", MESSAGE => "test", subject => "", kuno => "ichi" ];
$req->referer("http://qb5.2ch.net/");
$res = $ua->request($req);
print $res->content();

これで書き込めるかな？