Removing nested div Tag from HTML

mr_p has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monks,

I am in need of more help from everyone here.

I am trying to parse a nested tag from HTML using HTML::Parser and I am having problems. Below is my code. Please let me know what I am doing wrong.

#!/usr/bin/perl
use HTML::Parser;

my $content=<<EOF;
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <title>Some title goes here</title>
</head>
<body bgcolor="#FFFFFF">
  <div id="leftcol">
    menu column
  </div>
  <div id="body">
    <div class="content">
        <li>This is Line 1 </li>
    </div>
    <p>This is Line 2</p>
  </div>
  <div id="rightcol">
    news column
  </div>
</body>
</html>
EOF

my $p = HTML::Parser->new( api_version => 3 );
$p->handler( start => \&start_handler, "self,tagname,attr" );
$p->parse($content);

sub start_handler {
    my $self = shift;
    my $tagname  = shift;
    my $attr = shift;
    my $text = shift;
    return unless ( $tagname eq 'div' and $attr->{id} eq 'body' );
    $self->handler( start => sub { print shift }, "text" );
    $self->handler( text => sub { print shift }, "text" );
    $self->handler(end  => sub {
        my ($endtagname, $self, $text) = @_;
            if($endtagname eq $tagname) {
                    $self->eof;
            } else {
                    print $text;
            }
        }, "tagname,self,text");
}
[download]

The output should be

  <div id="body">
    <div class="content">
        <li>This is Line 1 </li>
    </div>
    <p>This is Line 2</p>
  </div>
  <div id="rightcol">
    news column
  </div>
[download]

But the line it cuts off before 'This is Line 2'

Comment on Removing nested div Tag from HTML Select or Download Code

Replies are listed 'Best First'.
Re: Removing nested div Tag from HTML by metaperl (Curate) on Aug 18, 2011 at 20:06 UTC
Are you trying to extract it or delete it? Either way, HTML::Tree is far simpler than what you are doing. The look_down method is all you need. Here's an article on scanning HTML So basically, you just need to: create an instance parse the HTML my $element = $tree->look_down( ... critera .. ) $element->delete The specifics depend on exactly what you want to keep versus delete, but it's a piece of cake. The mantra of every experienced web application developer is the same: thou shalt separate business logic from display. Ironically, almost all template engines allow violation of this separation principle, which is the very impetus for HTML template engine development. -- Terence Parr, "Enforcing Strict Model View Separation in Template Engines"	[reply]
Re^2: Removing nested div Tag from HTML by mr_p (Scribe) on Aug 18, 2011 at 20:13 UTC
Wouldn't HTML::Tree take too much time loading? The material I am working with is time critical.	[reply]
Re^3: Removing nested div Tag from HTML by Anonymous Monk on Aug 18, 2011 at 20:55 UTC
Wouldn't HTML::Tree take too much time loading? T.I.T.S. The material I am working with is time critical. Can't be that critical, if you're using perl	[reply]
Re^4: Removing nested div Tag from HTML by mr_p (Scribe) on Aug 18, 2011 at 21:38 UTC
Re^5: Removing nested div Tag from HTML by Anonymous Monk on Aug 19, 2011 at 12:42 UTC
Re^4: Removing nested div Tag from HTML by mr_p (Scribe) on Aug 19, 2011 at 15:02 UTC
Re^5: Removing nested div Tag from HTML by Anonymous Monk on Aug 19, 2011 at 15:15 UTC
Re^4: Removing nested div Tag from HTML by mr_p (Scribe) on Aug 19, 2011 at 15:18 UTC
Re^4: Removing nested div Tag from HTML by mr_p (Scribe) on Aug 19, 2011 at 21:27 UTC
Re^5: Removing nested div Tag from HTML by Anonymous Monk on Aug 20, 2011 at 03:10 UTC