in reply to How to use a regex to parse html form tags
You may need another tool to tidy up the html that this produces.use strict; use warnings; use WWW::Mechanize; use HTML::TreeBuilder; my $URL = q(http://home.comcast.net/~tankomail/preg.htm); my $mech = WWW::Mechanize->new(); $mech->get( $URL ); my $tree = HTML::TreeBuilder->new(); $tree->parse( $mech->content() ); my @forms = $tree->find('form'); foreach my $form (@forms) { my $parent = $form->parent(); $parent->push_content("BLOCKED"); $form->delete(); } print $tree->as_HTML(); $tree->delete(); __END__
|
|---|