home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 11_5.tcl < prev    next >
Text File  |  2003-04-15  |  193b  |  14 lines
  1. #
  2. # Example 11-5
  3. # The Url_Decode procedure.
  4. #
  5.  
  6. proc Url_Decode {url} {
  7.     regsub -all {\+} $url { } url
  8.     regsub -all {%([:xdigit:]]{2})} $url \
  9.         {[format %c 0x\1]} url
  10.     return [subst $url]
  11. }
  12.  
  13.  
  14.