escape.tcl

   1 package require TclCurl
   2
   3
   4 set escaped [curl::escape {What about this?}]
   5 puts "String to escape: What about this? - $escaped"
   6 puts "And the reverse: [curl::unescape $escaped]"