help replacing some extended ascii characters

[blotter45]

% time "urlEncode $url" 100
203 microseconds per iteration

% time "slowUrlEncode $url" 100
379 microseconds per iteration
%

here a simple proc that is bit faster then the one above ..

Code: Select all

proc urlEncode {url} {
  if {[regexp {(.*)\?(.*)} $url -> pre sur]} {
    set result ${pre}?
    foreach {x} [split $sur {}] {
      if {[regexp {[^a-zA-Z0-9=%]} $x]} {
        append result "%[format %02x [scan $x %c]]"
      } else {
      	append result $x
      }
    }
    return $result
  }
  return $url
}

this proc doesn't seem to work with extended ascii chars, but the slowurlencode proc posted by user does work, anyway thanks alot to you all for your help with this!!

[blotter45]

Code: Select all

proc urlEncode {url} {
  if {[regexp {(.*)\?(.*)} $url -> pre sur]} {
    set result ${pre}?
    foreach {x} [split $sur {}] {
      if {[regexp {[^a-zA-Z0-9=%]} $x]} {
        append result "%[format %02x [scan $x %c]]"
      } else {
      	append result $x
      }
    }
    return $result
  }
  return $url
}

sorry edited it for got a %

Just tried out your revision ofloo, but it still doesn't work with extended ascii characters (it just sends out the characters unchanged)

But atleast the slowurlencode proc does work, so I'm happy enough with that

[Ofloo]

not sur what you mean but to me it seems to work

% set url
http://domain.com/scs/info.php?username=§ent§%ÿﾧ
% urlEncode $url
http://domain.com/scs/info.php?username ... f%ef%be%a7
%

just curious probably wrong tho not sur if i should remove the % from the exempt list