うまい棒の断片

■ [perl]httpでpostする 00:58

perldoc LWPのまんまだけど。

use LWP::UserAgent;
use HTTP::Request;

$ua = LWP::UserAgent->new;
$ua->agent('LWP');	

$url = 'http://www.hoge.com/post.cgi';
$req = HTTP::Request->new(POST => $url);
$req->content_type('application/x-www-form-urlencoded');

$postdata = 'var1=value1&var2=value2';
$req->content($postdata);

$ua->request($req);

### レスポンスを取得するなら次みたいに
#$res = $ua->request($req);
#
#if ($res->is_success) {
#  print $res->content;
#}
#else {
#  print $res->status_line, "\n";
#}