%C3%B6sterreich -> Österreich umwandeln

[Rolf Rost]

Hi Reiner,

Alternative:
use URI::Escape;

oder ohne Module:

bin ich i.d.R. auch dafür ;-)

sub escape
        {
                shift() if ref($_[0]);
                my $toencode = shift;
                return undef unless defined($toencode);
                $toencode=~s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;
                return $toencode;
        }

sub unescape
        {
                shift() if ref($_[0]);
                my $todecode = shift;
                return undef unless defined($todecode);
                $todecode =~ tr/+/ /;       # pluses become spaces
                $todecode =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
                return $todecode;
        }

Cool! Endlich sehe ich beide Funktionen mal auf einer Seite.
Ctrl + C ... und danke sagen.

--roro