Posted to tcl by hypnotoad at Fri Jun 07 01:59:47 GMT 2019view pretty
# Code Snippet while {[gets $fin line]>=0} { set record(uuid) {} set llist [csv::split $line] set idx -1 foreach item $cols { set record($item) [lindex $llist [incr idx]] puts [list ${item} $record($item)] } puts [array get record] puts [list lookup uuid $record(uuid)] if {$record(value) eq {}} continue puts "INSERT" db eval {insert into main.lookup(uuid,class,subclass,designation,comment,english_display,local_display) VALUES (:record(uuid),:record(class),:record(subclass),:record(designation),:record(comment),:record(english_display),:record(local_display)); } } ### # Output ### basra:build-macos seandeelywoods$ ./wishkit ../data/dcii_isolation.sqlite uuid 22a17e6d-784b-4ba3-8aa8-451293077ba3 class eqpt_system subclass {} designation 60Hz english Electrical local Electrical comment {} subclass {} ÿuuid 22a17e6d-784b-4ba3-8aa8-451293077ba3 designation 60Hz english Electrical class eqpt_system uuid {} comment {} local Electrical lookup UUID {} can't read "record(value)": no such element in array