Comment puis-je encoder une chaîne pour HTML?

Question

Je suis à la recherche d'un moyen simple de coder en HTML une chaîne/un objet en Perl. Le moins de paquets supplémentaires utilisés le mieux.

Answer 1

HTML::Entities est votre ami.

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

Answer 2

De quel code devez-vous encoder, une chaîne ou un objet? Si c'est juste une chaîne, alors vous devriez juste vous soucier des problèmes d'encodage tels que UTF-8, et CGI::escape fera probablement l'affaire pour vous. Si c'est un objet, vous devrez le sérialiser en premier, ce qui ouvre un nouvel ensemble de problèmes, mais vous pouvez envisager de le coder en JSON.

PS. Bien que je ne trouve aucune documentation récente sur cette méthode (elle est importée de CGI::Util et est marquée comme "interne"), vous devriez probablement utiliser escapeHTML() comme le signale daxim dans son commentaire: http://search.cpan.org/perldoc?CGI#AUTOESCAPING_HTML

Answer 3

question a été la première réponse, HTML::Entities était le module la plupart des personnes probablement utilisées. C'est pur Perl et par défaut va échapper les caractères réservés HTML ><'"& et les caractères larges.

Récemment, HTML::Escape est apparu. Il a à la fois XS et Perl pur. Si vous utilisez la version XS, il est environ dix fois plus rapide que HTML::Entities. Cependant, il échappe seulement ><'"& et n'a aucun moyen de changer les valeurs par défaut. Voici la différence avec la version 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) 

Et voici la lutte juste avec les versions pures Perl sur chaque côté:

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) 

Vous pouvez obtenir ces points de repère dans Surveyor::Benchmark::HTMLEntities. J'explique how I distribute benchmarks en utilisant Surveyor::App.