8 lines
314 B
Tcl
8 lines
314 B
Tcl
proc urlDecode {str} {
|
|
set specialMap {"[" "%5B" "]" "%5D"}
|
|
set seqRE {%([0-9a-fA-F]{2})}
|
|
set replacement {[format "%c" [scan "\1" "%2x"]]}
|
|
set modStr [regsub -all $seqRE [string map $specialMap $str] $replacement]
|
|
return [encoding convertfrom utf-8 [subst -nobackslash -novariable $modStr]]
|
|
}
|