I ran the PPM> verify --force which upgraded about four packages so I assume
everthing is okay.
I ran the script,
*********
use strict;
use HTML::Parser();
open(OUTFILE,">out2.txt") || die("can not open file because $!");
sub start_handler {
if($_[0] eq 'input') {
print OUTFILE $_[1]{name},"\t",$_[1]{value},"\n";
}
}
my $p = HTML::Parser->new('c:/Inetpub/wwwroot/valuepairs.htm');
$p->handler( start => \&start_handler, 'tag, attr' );
$p->parse_file('valuepairs.html') || die $!;
close(OUTFILE);
*****************
WHICH CAME UP WITH:-
CGI Error
The specified CGI application misbehaved by not returning a complete set of
HTTP headers. The headers it did return are:
Can't locate auto/HTML/Parser/c:/Inetpub/wwwroot/valuepairs.htm.al in @INC
(@INC contains: C:/Perl/lib C:/Perl/site/lib .) at
C:/Perl/site/lib/HTML/Parser.pm line 82
I did the following,
C:\WINDOWS>ppm
PPM interactive shell (2.1.5) - type 'help' for available commands.
PPM>
PPM> verify HTML::Parser
PPM>
PPM> verify HTML-Parser
PPM> install HTML::Parser
Version 3.25 of 'HTML-Parser' is already installed.
Remove it, or use 'verify --upgrade HTML-Parser'.
PPM> verify --upgrade HTML-Parser
Upgrade package 'HTML-Parser'? (y/N): y
PPM>
PPM> verify HTML-Parser
PPM>
PPM> verify DBI
Package 'DBI' is up to date.
PPM> remove HTML::Parser
Remove package 'HTML-Parser?' (y/N): y
Error removing HTML-Parser: Package 'HTML-Parser' is required by PPM and
cannot be removed
PPM>
PPM> verify --force HTML::Parser
PPM>
PPM> verify HTML::Parser
PPM>
PPM> verify HTML-Parser
PPM>
The only thing that I can see is that when I run verify HTML::Parser it
doesn't come back with
Package 'HTML-Parser' is up to date.
it always goes back to the PPM> prompt.
ANY SUGGESTIONS?????
Malcolm
----- Original Message -----
From: "Scot Robnett" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, February 24, 2003 10:22 PM
Subject: RE: Help with HTML::Parser
> Use ppm to verify your installation is up to date.
>
> C:\WINNT\SYSTEM32> ppm
> PPM interactive shell (2.1.5) - type 'help'
> for available commands.
> PPM> verify HTML::Parser
> Package 'HTML-Parser' is up to date.
> PPM>
>
> If it says that an upgrade is available, do another install.
>
> PPM> install HTML::Parser
>
> -----
> Scot Robnett
> inSite Internet Solutions
> [EMAIL PROTECTED]
>
>
>
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] Behalf Of
> Malcolm Debono
> Sent: Monday, February 24, 2003 3:50 PM
> To: Scot Robnett; [EMAIL PROTECTED]
> Subject: Re: Help with HTML::Parser
>
>
> Thanks for emails.
> Can you please let me know how to uninstall the HTML::Parser.
> Then I will reinstall it.
>
> This email may be duplicated.
>
> Malcolm
>
> ----- Original Message -----
> From: "Scot Robnett" <[EMAIL PROTECTED]>
> To: "Malcolm Debono" <[EMAIL PROTECTED]>;
> <[EMAIL PROTECTED]>
> Sent: Monday, February 24, 2003 3:11 PM
> Subject: RE: Help with HTML::Parser
>
>
> > Is HTML::Parser in your Perl path? If not, right underneath your shebang
> > line, do
> >
> > BEGIN {
> > unshift(@INC,"/path/to/HTML")
> > # Parser.pm is under the HTML directory and
> > # Perl will automatically find recursively
> > }
> >
> > Otherwise I think there may be an issue with your HTML::Parser
> installation
> > (missing files, files in the wrong place, etc.)
> >
> > -----
> > Scot Robnett
> > inSite Internet Solutions
> > [EMAIL PROTECTED]
> >
> >
> >
> > -----Original Message-----
> > From: [EMAIL PROTECTED]
> > [mailto:[EMAIL PROTECTED] Behalf Of
> > Malcolm Debono
> > Sent: Monday, February 24, 2003 5:58 AM
> > To: [EMAIL PROTECTED]
> > Subject: Help with HTML::Parser
> >
> >
> > 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
> >
> > _______________________________________________
> > Perl-Win32-Users mailing list
> > [EMAIL PROTECTED]
> > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> >
> >
>
>
> _______________________________________________
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
