RE: [PERL] URL encodning

["Nezar Nielsen" <sslug@sslug>]

----- Original Message -----
From: "Jesper Lund" <sslug@sslug>
To: <sslug@sslug>
Sent: Wednesday, September 20, 2000 10:41 AM
Subject: Sv: [PERL] URL encodning

> > > Jeg sidder her og pukler med et script. Jeg har fundet ud af hvordan
> man
> > > afkoder en URL indkodet streng, men hvordan får jeg det til at gå
> den
> > > anden vej ?
> > >
..
> > use URI::Escape;
> > $safe = uri_escape("10% is enough\n");
>
> Det er meget godt,men det ka jeg ikke. Jeg skal sikkert have installeret
> et CPAN modul. Men hvilket ? Jeg har været inde og kigge,og det enste
> der hedder noget med Escape, er ikke til det der.....
>

Du skal sjovt nok ha' installeret URI::Escape modulet, som er en del af
URI-pakken på CPAN(http://sunsite.auc.dk/CPAN/modules/by-module/URI/), men
hvis ikke du gider det kan du også bare bruge den her(fra kilden til
modulet):

for (0..255) {
    $escapes{chr($_)} = sprintf("%%%02X", $_);
}
sub uri_escape{
    my($text)sslug@sslug;
    $text =~ s/([^;\/?:@&=+\$,A-Za-z0-9\-_.!~*'()])/$escapes{$1}/g;
    return $text;
}

--
Mvh. Nezar Nielsen