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"
}