Posted to tcl by hypnotoad at Wed Oct 11 15:21:49 GMT 2017view raw

  1. basra:irm seandeelywoods$ cat lol.tcl
  2. package require sqlite3
  3. sqlite3 db {}
  4. set a [expr {1}]
  5. set b [string index 1 0]
  6. puts [db eval {select $a=1}]
  7. puts [db eval {select $b='1'}]
  8. basra:irm seandeelywoods$ tclsh lol.tcl
  9. 1
  10. 1
  11. basra:irm seandeelywoods$ tclsh
  12. % source lol.tcl
  13. 1
  14. 1
  15. %
  16.