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