Posted to tcl by hypnotoad at Wed Oct 11 15:21:49 GMT 2017view raw
- basra:irm seandeelywoods$ cat lol.tcl
- package require sqlite3
- sqlite3 db {}
- set a [expr {1}]
- set b [string index 1 0]
- puts [db eval {select $a=1}]
- puts [db eval {select $b='1'}]
- basra:irm seandeelywoods$ tclsh lol.tcl
- 1
- 1
- basra:irm seandeelywoods$ tclsh
- % source lol.tcl
- 1
- 1
- %