Revision 0ab92915
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/MoreCommon.pm | ||
|---|---|---|
|
$str =~ tr/+/ /;
|
||
|
$str =~ s/\\$//;
|
||
|
|
||
|
$str =~ s/%([0-9a-fA-Z]{2})/pack("c",hex($1))/eg;
|
||
|
$str =~ s/%([0-9a-fA-Z]{2})/pack("C",hex($1))/eg;
|
||
|
$str = Encode::decode('utf-8-strict', $str) if $::locale->is_utf8;
|
||
|
|
||
|
return $str;
|
||
Auch abrufbar als: Unified diff
typo: pack "c" ist für signed byte, pack "C" für unsigned byte