HTML::TokeParser Search and remove by ID

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

I have come once again seeking perl wisdom

I am using HTML::TokeParser and this is what I would like to do.

Find containing div by ID. Loose everything before that
Find div by ID to be removed. This is within the containing div.
Copy to new string all contents of containing div to new string EXCEPT tags and contents of div by ID to be removed

I have read and searched for a solution, but TokeParser seems complex for my simple understanding.

my $parser = HTML::TokeParser->new(\$content);

while (my $token=$parser->get_tag("div")) {

  if($token->[1]{id} =~ /containerID/i) {
    my $parser1 = HTML::TokeParser->new(\$token->as_is);
    
    while (my $token1=$parser1->get_tag("div")) {
      next if($token1->[1]{id} =~ /removeID/i);
      
      $out = ???;
    }
    
  }
}

var $newContent = "<html><head></head><body>". $out . "</body></head>"
+;
[download]

Back to Seekers of Perl Wisdom