Re: Form problem

Gisle Aas (gisle@activestate.com)
01 Mar 2001 16:01:52 -0800


"Gino Gracin" <g.gracin@iol.it> writes:

> I tried to execute this program and I received the following error:
> "Not a GLOB reference at 
> /usr/local/lib/perl5/site_perl/5.005/HTML/TokeParser.pm line 43"

It probably means that you have the HTML::TokeParser from
HTML-Parser-2.21 (or older).  Try an upgrade if that is the case.

Regards,
Gisle

> #!/usr/local/bin/perl
> 
> use HTTP::Headers;
> use HTTP::Request;
> use HTML::Form;
> use LWP;
> use URI;
> 
> print "Content-type: text/html\n\n";
> print "<p>START\n";
> 
> $ua = LWP::UserAgent->new();
> $ua->agent('Mozilla');
> $url = 'http://my.yahoo.com';
> 
> my $login_req = HTTP::Request->new(GET => $url);
> my $login_res = $ua->request($login_req);
> my $html = $login_res->content;
> my $form = HTML::Form->parse($html,'http://my.yahoo.com');
> 
> print $form->click()->as_string();
> 
> print "<p>END\n";