initial checkin of TclCurl
This commit is contained in:
6
tests/escape.tcl
Executable file
6
tests/escape.tcl
Executable file
@ -0,0 +1,6 @@
|
||||
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]"
|
Reference in New Issue
Block a user