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";