Re: Perl : escape-koder til chars

[sslug@sslug (Adam Sjøgren)]

On Fri, 04 Aug 2006 13:28:44 +0200, Peter wrote:

> 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 ?

URI::Escape er din ven.

> sub correct_input {
>   local ($mystr) = @_;
>   $mystr =~ s/%0A//g;
>   $mystr =~ s/%0D//g;
>   $mystr =~ s/%20/ /g;

[...]

Ugh - og regulære udtryk - se dokumentationen til uri_unescape i
URI::Escape's pod!


  Mvh.

-- 
 "Subdued flamboyance"                                        Adam Sjøgren
                                                         sslug@sslug