Posted to tcl by mjanssen at Sun May 06 15:56:43 GMT 2007view raw

  1. package require sqlite3
  2. sqlite3 db {}
  3. proc longip {num} {
  4. # format you ip here
  5. return [expr {$num*2}]
  6. }
  7.  
  8. db function longip longip
  9.  
  10. db eval {create table test(id integer, longip integer)}
  11.  
  12.  
  13. for {set i 0} {$i < 100} {incr i} {
  14. db eval {insert into test values($i,NULL)}
  15. }
  16.  
  17.  
  18. db eval {SELECT * from test} {
  19. puts "$id: $longip
  20. }
  21.  
  22. db eval {UPDATE test SET longip=longip(id) WHERE longip isnull}
  23.  
  24. db eval {SELECT * from test} {
  25. puts "$id: $longip"
  26. }