#!/usr/bin/perl -w use strict; use HTML::Parser; my $html = "<HTML> from a file or wherever</HTML>"; my @parsed; my $p = HTML::Parser->new(api_version=> 3, handlers=> {default=>[\@parsed,"event,text"] +}, ); $p->parse($html); for (@parsed) { $_->[1] =~ s///g if $_->[0] eq 'text'; }
In reply to Re: Tricky regexp...
by thunders
in thread Tricky regexp...
by ti-source
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |