Perlを使って２ちゃんねるにHello Worldを書き込む

Perlを使って２ちゃんねるにHello Worldを書き込む at TECH

46:デフォルトの名無しさん
07/07/16 20:07:51
さあて、いよいよpostだ。実際に動かすときは自分のサーバーに置いた
スクリプト（>>45でいい)に向けてpostするように。

use LWP::UserAgent;

$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; SV1)");

$req = HTTP::Request->new(POST => 'URLﾘﾝｸ(www.example.com)');
$req->header(
'Accept' => '*/*',
'Accept-Language' => 'ja-JP,en-US;q=0.5',
'Referer' => 'URLﾘﾝｸ(www.example.com)',
);
$req->content_type('application/x-www-form-urlencoded');
$req->content('postdata=posttest');

print $ua->request($req)->as_string;

次ページ

続きを表示

1を表示