Form problem
Gino Gracin (g.gracin@iol.it)
Thu, 1 Mar 2001 23:53:38 +0100
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"
Somebody can help me to resolve this problem?
Thank you,
Gino
#!/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";