[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]![]() |
![]() |
![]() |
|||||||||||||||||||||||||
|
|||||||||||||||||||||||||||
![]() |
![]() |
![]() |
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
![]() |
![]() |
![]() |
||||||||||||
|
||||||||||||||
![]() | ||||||||||||||
|
||||||||||||||
![]() |
![]() |
![]() |