Posted to tcl by aspect at Sat Feb 06 06:16:52 GMT 2016view raw

  1. package require sqlite3
  2. sqlite3 db ""
  3. set i [expr 1]
  4. set s [string trim " 1 "]
  5. puts [db eval {select $i < $s}]
  6. # 1
  7.