| |||||||
|
|
Click here to download plain text source code.
# subroutine name: unsafe # decode URL-encoded chars, except "+" sign sub unsafe { my($todecode) = @_; $todecode =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge; return $todecode; } |
|||||||||||||||||||||
| Copyright © 1999-2007 Atomicsoft Ltd. All Rights Reserved. | ||