I just joined this newgroup so if I am posting in the wrong place, please
let me know nicely rather than bashing me for the inexperience ALL of you
once had.
I have a problem with my script listed below. Any help would be GREATLY
appreciated!!
sulfericacid
The errors I receive are:
1 Uncaught exception from user code:
2 Uncaught exception from user code:
3 Undefined subroutine &main::get called line 14.
4 main::BEGIN()
called/usr/local/lib/perl5/site_perl/5.005/LWP/Simple.pm line 14
5 eval {...} called/usr/local/lib/perl5/site_perl/5.005/LWP/Simple.pm
line 14
6 BEGIN failed--compilation aborted line 14.
Script:
#!/usr/local/bin/perl -w
my %form;
my $content;
$userurl ="$form{'userurl'}";
print "Content-type: text/html\n\n";
use diagnostics; # compilation aborted
use strict;
use LWP::Simple
$content = get($form{'userurl'});
use HTML::TokeParser
my $p = HTML::TokeParser->new(\$content);
my %meta;
while (my $token = $p->get_token) {
next unless $token->[1] eq 'meta' && $token->[0] eq 'S';
$meta{$token->[2]->{name}} = $token->[2]{content};
}
print "$_: $meta{$_}<br>\n" foreach (keys %meta);
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
