|< 1 2 >| | 15 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
my %ascii2htmlReplacements = (
chr(225) => 'ß', # ß
chr(132) => 'ä', # ä
chr(148) => 'ö', # ö
chr(129) => 'ü', # ü
chr(142) => 'Ä', # Ä
chr(153) => 'Ö', # Ö
chr(154) => 'Ü', # Ü
chr(000) => '„', # " unten
chr(000) => '‚', # '
chr(150) => '–', # Gedankenstrich
);
# replace ascii-special chars with ansi
foreach (keys %ascii2htmlReplacements) {
$htmlcode =~ s/\Q$_\E/$ascii2htmlReplacements{$_}/ge;
}
1
2
3
use HTML::Entities ();
$encoded = HTML::Entities::encode($a);
$decoded = HTML::Entities::decode($a);
|< 1 2 >| | 15 Einträge, 2 Seiten |