[an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] (none) [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive]
[an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] (none) [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive]![]() |
![]() |
![]() |
|||||||||||||||||||||||||
|
|||||||||||||||||||||||||||
![]() |
![]() |
![]() |
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
![]() |
![]() |
![]() |
||||||||||||
|
||||||||||||||
![]() | ||||||||||||||
|
||||||||||||||
![]() |
![]() |
![]() |