Help please.
I am getting an error. I don't know if the code is right ????
Can't locate auto/HTML/Parser/.al in @INC (@INC contains: C:/Perl/lib
C:/Perl/site/lib .) at C:/Perl/site/lib/HTML/Parser.pm line 82
or if I use ('$content') #line 22
Can't locate auto/HTML/Parser/$content.al in @INC (@INC contains:
C:/Perl/lib C:/Perl/site/lib .) at C:/Perl/site/lib/HTML/Parser.pm line 82
The list.dat is looking up url's ie:
http://yes/testextract.htm
http://yes/lnks/okay.html
********************
#!/usr/bin/perl
use strict;
use HTML::Parser();
# Absolute path to list.dat file:
my $infile = "/Inetpub/wwwroot/cgi-bin/extracthtml/list.dat";
# Absolute path to extract.dat file:
my $outfile = "/Inetpub/wwwroot/cgi-bin/extracthtml/extract2.dat";
my ($content,$url);
open PAGE, "<$infile" or die "Can't open $infile: $!";
while (<PAGE>) {
chomp;
next if not /http/i;
&getinfo ($_);
}
close PAGE;
open(OUTFILE,">$outfile") || die("can not open file because $!");
my $p = HTML::Parser->new($content); #line 22
$p->handler( start => \&start_handler, 'tag, attr' );
$p->parse_file('$content') || die $!;
close(OUTFILE);
#- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
sub getinfo {
my $url = shift;
use LWP::Simple 'get';
my $content = get ($url);
return 0 if not $content;
}
#- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
sub start_handler {
if($_[0] eq 'input') {
print OUTFILE $_[1]{name},"\t",$_[1]{value},"\n";
}
}
__END__
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
