Posted to tcl by hypnotoad at Wed Oct 11 15:21:49 GMT 2017view pretty
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
%