There have been many questions posted to Perlmonks
recently asking
about cleaning up HTML
(either removing specific tags, or removing
all tags except for a given few). Most people respond
with one of two suggestions:
- a regular expression - this has the problem
that it may not work because of the way > and < may appear
in the HTML
- advice to check out <cpan://HTML::Parser> and
use it as the basis for solving the problem
I've decided to delve in write some code that would
serve as an example of how to properly filter out
unwanted HTML tags from a document. I actually
use <cpan://HTML::Filter> which is distributed with
<cpan://HTML::Parser>.
My code uses a hash of tags to keep; it could be
easily adapted to work with a hash of tags to drop
instead.
As always; any comments, criticism or advice on doing
this better is appreciated.
package HTML::Sanitizer;
require HTML::Filter;
@ISA=qw(HTML::Filter);
my $data='';
my %keep=(
a => 1,
p => 1,
img => 1
);
sub output{
my $self=shift;
my $d=$_[0];
if($d=~/\<\s*\/?\s*(\w+)/){
if(exists $keep{lc($1)}){
$data.=$d;
}
}else{
$data.=$d;
}
}
my $p=HTML::Sanitizer->new();
$p->parse_file("index.html");
print $data;
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|