[tcl] urlencode

enconding convertto сначала, не?

во что его конвертировать?

variable map
for {set i 0} {$i <= 256} {incr i} {
set c [format %c $i]
if {![string match {[a-zA-Z0-9]} $c]} {
set map($c) "%[format %.2x $i]"
}
}
array set map { " " + \n %0d%0a }
regsub -all {[^\w]} $string {$::map(&)} string

тоже самое и здесь оно работает только на символы /|\&^ на кирилицу не дейсвует. http://wiki.tcl.tk/14144

нашел рабочий пример в блоге у какого то японца.

proc urlencode {text} {
set url ""
foreach byte [split [encoding convertto utf-8 $text] ""] {
scan $byte %c i
if {[string match {[%<>"]} $byte] || $i <= 32 || $i > 127} {
append url [format %%%02X $i]
} else {
append url $byte
}
}
return $url
}