[SP-pm] Função que verifica dados HTML

[Gabriel Andrade]

2010/1/14 Fernando <fernandolouis at terra.com.br>:
> Amigos, a função “strip_tags()” na linguagem PHP, previne entrada maliciosa
> de tags HTML. Qual seria a equivalente função aplicada à PERL?

Solução simples, rápida, porca, restrita, não-extensível e
anti-padrões (você pediu que fosse equivalente ao PHP não foi? ):

   s/<(?:[^>'"]*|(['"]).*?\1)*>//gs

Outra forma mais elegante, inteligente, extensível, testada e
documentada seria usar módulos do perl específicos pra esse tipo de
problema como HTML::FormatText ou HTML::Restrict.

A título de curiosidade, o strip_tags() do php 5 se caga todo com
expressões como:

   <script>if (a<b && a>c)</script>

Fontes:
$ perldoc -q 'remove HTML from a string'
http://search.cpan.org/search?query=strip+html&mode=all