Posted to tcl by mjanssen at Sun May 06 15:56:43 GMT 2007view pretty
package require sqlite3 sqlite3 db {} proc longip {num} { # format you ip here return [expr {$num*2}] } db function longip longip db eval {create table test(id integer, longip integer)} for {set i 0} {$i < 100} {incr i} { db eval {insert into test values($i,NULL)} } db eval {SELECT * from test} { puts "$id: $longip } db eval {UPDATE test SET longip=longip(id) WHERE longip isnull} db eval {SELECT * from test} { puts "$id: $longip" }