in reply to Re^2: HTML::Entities encode_entities for perlmonks [ ]
in thread HTML::Entities encode_entities for perlmonks [ ]
use HTML::Entities ; my $string = '[< smarto >]'; my $unsafe_chars = '[]'; my $encoded = encode_entities($string) =~ s{([\Q$unsafe_chars\E])}{sprintf"&#%d;",ord$1}egr; print "$string\n$encoded\n";
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: HTML::Entities encode_entities for perlmonks [ ] (fix knife)
by Anonymous Monk on Jun 15, 2013 at 10:46 UTC |