File: escape.tcl

package info (click to toggle)
tclcurl 7.22.0%2Bhg20160822-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 1,328 kB
  • ctags: 331
  • sloc: ansic: 4,264; tcl: 860; sh: 155; makefile: 30
file content (6 lines) | stat: -rwxr-xr-x 175 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
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]"