7 lines
175 B
Tcl
7 lines
175 B
Tcl
|
package require TclCurl
|
||
|
|
|
||
|
|
|
||
|
|
set escaped [curl::escape {What about this?}]
|
||
|
|
puts "String to escape: What about this? - $escaped"
|
||
|
|
puts "And the reverse: [curl::unescape $escaped]"
|