I forgot the part where the request gets fed to the remote site. You'll need to do that too...
On Thu, Apr 03, 2003 at 12:45:19PM -0500, Mike Simons wrote: > try something like this: > ==== > my $req = HTTP::Request->new( > GET => 'http://site.com/login/page.asp' > ); # Pass request to the user agent and get a response back my $res = $ua->request($req); # Check the outcome of the response if (!$res->is_success) { die "problem"; } > > my ($form); > { # silence parse errors due to bad html > # <input type=input ...> > local $^W = ""; > > # parse and select correct form from html > $form = (HTML::Form->parse($res->content, $res->base))[0]; > }
