egghelp/eggheads community

parsing url strings

2004-12-23T17:41:23-04:00

nvm and its not in uri as far as i can say for those who want it ..

Code:

proc mapHex {pre} {  set i 0  while {$i < 1} {    if {[regexp {(.*)%([0-9a-zA-Z]{2})(.*)} $pre str pre hex end]} {      if {[info exists r]} {        set r [format %c 0x${hex}]$end$r      } else {        set r [format %c 0x${hex}]$end      }    } else {      if {[info exists r]} {        return "${pre}${r}"      } else {      return $pre      }    }  }}

Statistics: Posted by Ofloo — Thu Dec 23, 2004 5:41 pm

parsing url strings

2004-12-23T12:54:40-04:00

"resolve it"? what do you mean? and what are you actually trying to accomplish?

you might wish to check Tcllib's package uri

Statistics: Posted by demond — Thu Dec 23, 2004 12:54 pm

parsing url strings

2004-12-22T16:35:38-04:00

as you know all weird chars will be formated to hex using % as a hex symbol, i am trying to parse data from for example %3A to \x3A and resolve it without saving it into \x3A

Code:

foreach {x} [split [lindex [split $url \x3F] 1] \x26] {     if {[regexp {^(.+?)\x3D(.*)$} $x str name value]} {    set _GET([join [string map {\x2B \x20 \x25 \\x} $name]]) [join [string map {\x2B \x20 \x25 \\x} $value]]  }}

now i need to join in order to resolve it.. also in some cases it gives a weird result for example when using '=' and right after it a 'd' don't know why '=d'
out puts a weird result (greek beta letter) .. instead of =d

Statistics: Posted by Ofloo — Wed Dec 22, 2004 4:35 pm