Revision 5de9f9f8
Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt
| SL/HTML/Util.pm | ||
|---|---|---|
| 6 | 6 |
use HTML::Parser; |
| 7 | 7 |
|
| 8 | 8 |
my %stripper; |
| 9 |
my %entities = ( |
|
| 10 |
'lt' => '<', |
|
| 11 |
'gt' => '>', |
|
| 12 |
'amp' => '&', |
|
| 13 |
); |
|
| 9 | 14 |
|
| 10 | 15 |
sub strip {
|
| 11 | 16 |
my ($class_or_value) = @_; |
| ... | ... | |
| 22 | 27 |
$stripper{parser}->parse($value);
|
| 23 | 28 |
$stripper{parser}->eof;
|
| 24 | 29 |
|
| 30 |
$stripper{text} =~ s{\&([^;]+);}{ $entities{$1} }eg;
|
|
| 31 |
|
|
| 25 | 32 |
return delete $stripper{text};
|
| 26 | 33 |
} |
| 27 | 34 |
|
Auch abrufbar als: Unified diff
SL::HTML::Util::strip: HTML-Entitäten zurückübersetzen