LWPでsubmitさせる方法

解決済

質問者：meikenpochi
質問日時：2005/09/30 08:47
回答数：1件

http://xxxx.xxxx.jp/index.htmlにhttp://xxxx.xxxx.jp/submit.cgiからアクセスして
subimitさせたいのですが、下記のcgiだとError: 405 Method Not Allowed と出てしまいます。
formの名前の指定とsubmitの指定方法が分かりません。何方か詳しい方ご教授お願いします。

****　http://xxxx.xxxx.jp/index.html *****　
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=SHIFT_JIS">
<META http-equiv="Content-Style-Type" content="text/css">
<SCRIPT language="JavaScript">

</SCRIPT><TITLE></TITLE>
</HEAD>
<BODY>
<FORM name="Myform"><INPUT size="20" type="text" name="ttt"><INPUT type="button" value="送信" onclick="test()"></FORM>
</BODY>
</HTML>

****　http://xxxx.xxxx.jp/submit.cgi　*****
#!/usr/bin/perl
use lib "lib";
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
my $url = 'http://xxxx.xxxx.jp/index.html';
my %formdata = ('ttt' => 'hellow');
my $req = POST($url, [%formdata]);
$req->header(
'Accept' => 'text/html',
'User_Agent' => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322) ',
'Referer' => 'http://ranks1.apserver.net/share/regist.php?u=pi …
);
my $ua = LWP::UserAgent->new;
my $res = $ua->request( $req );
print "Content-type: text/html;\n\n";
if ($res->is_success) {
print $res->content;
} else {
print "Error: " . $res->status_line . "\n";
}
exit();