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