| |||||||
|
|
Click here to download plain text source code.
# subroutine name: safe_tbl # URL-encode \x00-\x1F characters in string sub safe_tbl { my($toencode) = @_; $toencode=~s/([%\x00-\x1F])/uc sprintf("%%%02x",ord($1))/eg; return $toencode; } |
|||||||||||||||||||||
| Copyright © 1999-2007 Atomicsoft Ltd. All Rights Reserved. | ||