in reply to HTML::Parser - no contents. no error.

Here are my thoughts
  1. Where is your minimal example which demonstrates the problem please? (too mysterious)
  2. Grab a copy of Devel::Trace
  3. Grab a copy of Devel::TraceMethods
update: when you graby a copy of those Devel:: modules, be sure to give the docs a read and use them, mmkay ;)

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

  • Comment on Re: HTML::Parser - no contents. no error.

Replies are listed 'Best First'.
Re: Re: HTML::Parser - no contents. no error.
by Anonymous Monk on Oct 29, 2003 at 15:23 UTC

    Thanks for the advice thus far. I applied Devel::Trace and Devel::TraceMethods. It seems that the parse method inherited from HTML::Parser is simply doing nothing -- none of the handlers are being called. Here is the relevant section Trace output. Text::Styler::Parser is a subclass of HTML::Parser. It's meant to text form HTML.

    >> test.pl:3: $Devel::Trace::TRACE=0;
>> test.pl:26: print $styler->text_style($html);
>> Text/Styler.pm:21:   my($self,$text) = @_;
>> Text/Styler.pm:23:   my $styler = new Text::Styler::Parser;
>> Text/Styler/Parser.pm:21:    my $proto = shift;
>> Text/Styler/Parser.pm:22:    my $class = ref( $proto ) || $proto; 
>> Text/Styler/Parser.pm:23:    my $parser = HTML::Parser->new( api_ve
+rsion => 3 );
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:23:     my $clas
+s = shift;
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:24:     my $self
+ = bless {}, $class;
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:25:     return $
+self->init(@_);
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:31:     my $self
+ = shift;
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:32:     $self->_
+alloc_pstate;
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:34:     my %arg 
+= @_;
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:35:     my $api_
+version = delete $arg{api_version} || (@_ ? 3 : 2);
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:36:     if ($api
+_version >= 4) {
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:42:     if ($api
+_version < 3) {
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:65:     if (my $
+h = delete $arg{handlers}) {
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:73:     while (m
+y($option, $val) = each %arg) {
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:86:     return $
+self;
>> Text/Styler/Parser.pm:25:    $parser->handler(start => \&start_hand
+ler, 'self, tagname, attr' );
>> Text/Styler/Parser.pm:26:    $parser->handler(end => \&end_handler,
+ 'self, tagname' );
>> Text/Styler/Parser.pm:27:    $parser->handler(text => \&text_handle
+r, 'self, dtext' );
>> Text/Styler/Parser.pm:28:    $parser->report_tags( @report_tags );
>> Text/Styler/Parser.pm:29:    $parser->unbroken_text(1);
>> Text/Styler/Parser.pm:31:    return bless $parser, $class;
>> Text/Styler.pm:24:   $styler->parse($text);
>> Text/Styler.pm:27:   $self->text_wrap( $styler->contents );

    [download]

    TraceMethods reports something similar.

    parseText::Styler::Parser=HASH(0x80f5f7c)<p>Little <q>help</q> and lov
+e key the i to i'll tune get me help i i.</p>
<p>Walk friends sad, you. <br />My by up the my little, a a, and my i,
+ with <a href="http://tima.mplode.com/">you high</a> you're. By from 
+when walk would what my help from my, by, when. Your up, be own with 
+would is me up your you're friends does to of by and my how ears. You
+ if little with out i own, worry you, of are, little, not get, i sing
+ sad key. Stand help get with get be what are walk my out a of song, 
+on by would i a a. Away think think, because me not . Tune you with m
+e a sing the how i'll song sang sang on your, out, i. Little, help he
+lp and love key the i to i'll tune get me help i i, of. 
The <b>sad, you does by</b> up the my little, a.</p>
<pre>xxxx
    foo
       foo</pre>
 at Text/Styler.pm line 24

    [download]

    Here is that same section when run on my Mac.

    parseText::Styler::Parser=HASH(0xc63d4)<p>Little <q>help</q> and love 
+key the i to i'll tune get me help i i.</p>
<p>Walk friends sad, you. <br />My by up the my little, a a, and my i,
+ with <a href="http://tima.mplode.com/">you high</a> you're. By from 
+when walk would what my help from my, by, when. Your up, be own with 
+would is me up your you're friends does to of by and my how ears. You
+ if little with out i own, worry you, of are, little, not get, i sing
+ sad key. Stand help get with get be what are walk my out a of song, 
+on by would i a a. Away think think, because me not . Tune you with m
+e a sing the how i'll song sang sang on your, out, i. Little, help he
+lp and love key the i to i'll tune get me help i i, of. 
The <b>sad, you does by</b> up the my little, a.</p>
<pre>xxxx
    foo
       foo</pre>
 at Text/Styler.pm line 24
start_document_handlerText::Styler::Parser=HASH(0xc63d4) at Text/Style
+r.pm line 24
start_handlerText::Styler::Parser=HASH(0xc63d4)pHASH(0xc72e4) at Text/
+Styler.pm line 24
text_handlerText::Styler::Parser=HASH(0xc63d4)Little  at Text/Styler.p
+m line 24
current_elementText::Styler::Parser=HASH(0xc63d4) at Text/Styler/Parse
+r.pm line 71
start_handlerText::Styler::Parser=HASH(0xc63d4)qHASH(0xc7350) at Text/
+Styler.pm line 24
text_handlerText::Styler::Parser=HASH(0xc63d4)help at Text/Styler.pm l
+ine 24
current_elementText::Styler::Parser=HASH(0xc63d4) at Text/Styler/Parse
+r.pm line 71
end_handlerText::Styler::Parser=HASH(0xc63d4)q at Text/Styler.pm line 
+24
text_handlerText::Styler::Parser=HASH(0xc63d4) and love key the i to i
+'ll tune get me help i i. at Text/Styler.pm line 24
current_elementText::Styler::Parser=HASH(0xc63d4) at Text/Styler/Parse
+r.pm line 71
end_handlerText::Styler::Parser=HASH(0xc63d4)p at Text/Styler.pm line 
+24
text_handlerText::Styler::Parser=HASH(0xc63d4)
 at Text/Styler.pm line 24
start_handlerText::Styler::Parser=HASH(0xc63d4)pHASH(0xc7338) at Text/
+Styler.pm line 24
text_handlerText::Styler::Parser=HASH(0xc63d4)Walk friends sad, you.  
+at Text/Styler.pm line 24
current_elementText::Styler::Parser=HASH(0xc63d4) at Text/Styler/Parse
+r.pm line 71
start_handlerText::Styler::Parser=HASH(0xc63d4)brHASH(0xc7314) at Text
+/Styler.pm line 24
text_handlerText::Styler::Parser=HASH(0xc63d4)My by up the my little, 
+a a, and my i, with  at Text/Styler.pm line 24
current_elementText::Styler::Parser=HASH(0xc63d4) at Text/Styler/Parse
+r.pm line 71
start_handlerText::Styler::Parser=HASH(0xc63d4)aHASH(0xc738c) at Text/
+Styler.pm line 24
text_handlerText::Styler::Parser=HASH(0xc63d4)you high at Text/Styler.
+pm line 24
current_elementText::Styler::Parser=HASH(0xc63d4) at Text/Styler/Parse
+r.pm line 71
end_handlerText::Styler::Parser=HASH(0xc63d4)a at Text/Styler.pm line 
+24
text_handlerText::Styler::Parser=HASH(0xc63d4) you're. By from when wa
+lk would what my help from my, by, when. Your up, be own with would i
+s me up your you're friends does to of by and my how ears. You if lit
+tle with out i own, worry you, of are, little, not get, i sing sad ke
+y. Stand help get with get be what are walk my out a of song, on by w
+ould i a a. Away think think, because me not . Tune you with me a sin
+g the how i'll song sang sang on your, out, i. Little, help help and 
+love key the i to i'll tune get me help i i, of. 
The  at Text/Styler.pm line 24
current_elementText::Styler::Parser=HASH(0xc63d4) at Text/Styler/Parse
+r.pm line 71
start_handlerText::Styler::Parser=HASH(0xc63d4)bHASH(0xc7398) at Text/
+Styler.pm line 24
text_handlerText::Styler::Parser=HASH(0xc63d4)sad, you does by at Text
+/Styler.pm line 24
current_elementText::Styler::Parser=HASH(0xc63d4) at Text/Styler/Parse
+r.pm line 71
end_handlerText::Styler::Parser=HASH(0xc63d4)b at Text/Styler.pm line 
+24
text_handlerText::Styler::Parser=HASH(0xc63d4) up the my little, a. at
+ Text/Styler.pm line 24
current_elementText::Styler::Parser=HASH(0xc63d4) at Text/Styler/Parse
+r.pm line 71
end_handlerText::Styler::Parser=HASH(0xc63d4)p at Text/Styler.pm line 
+24
text_handlerText::Styler::Parser=HASH(0xc63d4)
 at Text/Styler.pm line 24
current_elementText::Styler::Parser=HASH(0xc63d4) at Text/Styler/Parse
+r.pm line 71
start_handlerText::Styler::Parser=HASH(0xc63d4)preHASH(0xc735c) at Tex
+t/Styler.pm line 24
text_handlerText::Styler::Parser=HASH(0xc63d4)xxxx
    foo
       foo at Text/Styler.pm line 24
current_elementText::Styler::Parser=HASH(0xc63d4) at Text/Styler/Parse
+r.pm line 71
end_handlerText::Styler::Parser=HASH(0xc63d4)pre at Text/Styler.pm lin
+e 24

    [download]

    As I mentioned, what I find odd is that there is not an error message in sight. The box in which this is failing has been running the same version of Perl (5.6.1) for quite some time. I've written other HTML::Parser modules before on this box and not had an issue. Before I request to have this module updated on the system -- any additional thoughts are appreciated. Thanks for wisdom thus far.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom