Re: [apache-rus] перекодировка directory lookup

["Khimenko Victor" <khim@sch57.msk.ru>]

In <XFMail.980819133217.sergei@line.ru> sergei@line.ru (sergei@line.ru) wrote:
 s> Hi!

 s> Дядьки, не даст ли кто модулек на перле (функцию), которая из строки делает
 s> url-encoded? Ммм?

Оно где-то в CGI.pm есть. Что-то типа:

# unescape URL-encoded data
sub unescape {
    my($todecode) = @_;
    $todecode =~ tr/+/ /;       # pluses become spaces
    $todecode =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
    return $todecode;
}
# URL-encode data
sub escape {
    my($toencode) = @_;
    $toencode=~s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg;
    return $toencode;
}

P.S. С $%$&%%& UNICODE оно не справляется :-((