Tôi làm cách nào để mã hóa chuỗi cho HTML?

Question

Tôi đang tìm một cách đơn giản để mã hóa HTML một chuỗi/đối tượng trong Perl. Các gói bổ sung ít được sử dụng tốt hơn.

Answer 1

HTML::Entities là bạn của bạn ở đây.

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

Answer 2

Bạn cần mã hóa, chuỗi hoặc đối tượng nào? Nếu nó chỉ là một chuỗi, sau đó bạn chỉ cần phải lo lắng về các vấn đề mã hóa như UTF-8, và CGI::escape có thể sẽ làm các trick cho bạn. Nếu đó là một đối tượng, trước tiên bạn sẽ cần serialize nó, mở ra một tập hợp các vấn đề hoàn toàn mới, nhưng bạn có thể muốn xem xét JSON-mã hóa nó.

PS. Mặc dù tôi không thể tìm thấy bất kỳ tài liệu nào gần đây về phương pháp này (nó thực sự được nhập từ CGI::Util và được đánh dấu là "nội bộ"), bạn có thể sử dụng escapeHTML() như daxim chỉ ra trong nhận xét của mình: http://search.cpan.org/perldoc?CGI#AUTOESCAPING_HTML

Answer 3

Khi điều này câu hỏi đầu tiên được trả lời, HTML::Entities là mô-đun mà hầu hết mọi người có thể đã sử dụng. Đó là Perl tinh khiết và theo mặc định sẽ thoát khỏi các ký tự dành riêng cho HTML ><'"& và các ký tự rộng.

Gần đây, HTML::Escape xuất hiện. Nó có cả XS và Perl tinh khiết. Nếu bạn đang sử dụng phiên bản XS, nhanh hơn khoảng 10 lần so với HTML::Entities. Tuy nhiên, nó chỉ trốn thoát ><'"& và không có cách nào để thay đổi các giá trị mặc định. Đây là sự khác biệt với phiên bả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) 

Và đây là cuộc đấu tranh công bằng với các phiên bản Perl tinh khiết mỗi bên:

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) 

Bạn có thể có được những tiêu chuẩn trong Surveyor::Benchmark::HTMLEntities. Tôi giải thích how I distribute benchmarks sử dụng Surveyor::App.