Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: HTML::Strip question--stripping only certain tags?

by bmann (Priest)
on Feb 01, 2006 at 23:05 UTC ( #527187=note: print w/replies, xml ) Need Help??

in reply to HTML::Strip question--stripping only certain tags?

HTML::Scrubber lets you allow only selected tags. I lifted the following from the pod (slightly modified):

#!/usr/bin/perl -w use HTML::Scrubber; use strict; my $html = q[ <style type="text/css"> BAD { background: #666; color: #666;} </style> <script language="javascript"> alert("Hello, I am EVIL!"); </script> <HR> a => <a href=1>link </a> br => <br> b => <B> bold </B> u => <U> UNDERLINE </U> ]; # only allow the following tags my $scrubber = HTML::Scrubber->new( allow => [ qw[ p b i u hr br ] ] ) +; print $scrubber->scrub($html); __END__ Output: <hr> a => link br => <br> b => <b> bold </b> u => <u> UNDERLINE </u>
style, script and links are gone.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://527187]
[Corion]: Grrr. My script works in the browser but it fails in the headless browser :-)

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (8)
As of 2018-02-25 08:01 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (312 votes). Check out past polls.