Re: [PROGRAMMERING] Perl : escape-koder til chars

[Henrik Christian Grove <sslug@sslug>]

Peter Maersk-Moller <sslug@sslug> writes:

> Jeg køre et CGI-script i perl, der oversætter escape-koder
> fra en browser (http) til chars. Scriptet er vist forneden,
> men kan det ikke gøres mere elegant ? Og findes der et perl-modul,
> der kan gøre det ?

> sub correct_input {
>    local ($mystr) = @_;
>    $mystr =~ s/%0A//g;
...
>    $mystr =~ s/%40/@/g;
>    $mystr =~ s/%3A/:/g;
>    return $mystr;
> }

Noget i retning af:
$mystr =~ s/%([0-9A-F]{2})/chr(hex($1))/eg

.Henrik

-- 
>> Jo ja nej æh bøh!
>Helt enig.
Me too ... 
		-- vi lader personerne bag være anonyme