Posted to tcl by mjanssen at Sun May 06 15:56:43 GMT 2007view raw
- 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"
- }