GIbt es in Perl sowas wie urlencode in PHP(GET-Problem)

[Reiner]

Hallo,

my $qery = new CGI;
print $query->escape('Was auch immer für ein Text!');

oder als Funktionen:

URL-encode data

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;
}

unescape URL-encoded data

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;
}

Reiner