¿Cómo puedo codificar una cadena para HTML?

Question

Estoy buscando una forma simple de codificar HTML una cadena/objeto en Perl. Cuantos menos paquetes adicionales se utilicen, mejor.

Answer 1

HTML::Entities es tu amigo aquí.

use HTML::Entities; 
my $encoded = encode_entities("foo & bar & <baz>"); 

Answer 2

¿Qué necesitas para codificar, una cuerda o un objeto? Si solo se trata de una cadena, entonces solo debe preocuparse por los problemas de codificación como UTF-8 y CGI::escape, probablemente sea el truco para usted. Si es un objeto, primero tendrá que serializarlo, lo que abre un nuevo conjunto de problemas, pero es posible que desee considerar JSON -encoding it.

PS. Aunque como no puedo encontrar documentación reciente sobre este método (en realidad se importó desde CGI::Util y está marcado como "interno"), probablemente deba usar escapeHTML() como daxim en su comentario: http://search.cpan.org/perldoc?CGI#AUTOESCAPING_HTML

Answer 3

Cuando esto La pregunta fue respondida primero, HTML::Entities fue el módulo que la mayoría de la gente probablemente usó. Es puro Perl y, de forma predeterminada, escapará de los caracteres reservados de HTML ><'"& y de los caracteres anchos.

Recientemente, HTML::Escape apareció. Tiene tanto XS como Perl puro. Si está utilizando la versión XS, es aproximadamente diez veces más rápido que HTML::Entities. Sin embargo, solo escapa al ><'"& y no tiene forma de cambiar los valores predeterminados. Esta es la diferencia con la versión XS:

Benchmark: timing 10000 iterations of html_entities, html_escape... 
html_entities: 14 wallclock secs (14.09 usr + 0.01 sys = 14.10 CPU) @ 709.22/s (n=10000) 
html_escape: 1 wallclock secs (0.68 usr + 0.00 sys = 0.68 CPU) @ 14705.88/s (n=10000) 

Y aquí está la lucha justa con las versiones de Perl puros en cada lado:

Benchmark: timing 10000 iterations of html_entities, html_escape... 
html_entities: 14 wallclock secs (13.79 usr + 0.01 sys = 13.80 CPU) @ 724.64/s (n=10000) 
html_escape: 7 wallclock secs (7.57 usr + 0.01 sys = 7.58 CPU) @ 1319.26/s (n=10000) 

puede obtener estos puntos de referencia en Surveyor::Benchmark::HTMLEntities. Explico how I distribute benchmarks usando Surveyor::App.