09/02/17 20:58:56.46 /U1/KVw90
できるひと試してみてくれないかなあ
use strict;
use HTTP::Cookies;
use LWP::UserAgent;
my $cookie_jar = HTTP::Cookies->new(file => './cookie.txt', autosave => 1);
$cookie_jar->set_cookie('', 'pollcookie', '2009-02-17', '/', 'hanafos.com');
my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)');
$ua->cookie_jar($cookie_jar);
my $request = HTTP::Request->new(
POST => ''
);
my $res=$ua->post(
'URLﾘﾝｸ(dokdo.andu.hanafos.com)',
[
p_seq => '6',
answer => '2',
userNO => ''
],
Referer => "URLﾘﾝｸ(dokdo.andu.hanafos.com)"
);
print $res->as_string;