You are here

데이터를 불러와서 테이블 값을 업데이트 하고 싶습니다. 제 코드의 문제가 뭐죠???

num은 2입니다.
test.in파일에서 데이터를 읽어 온 후 table 값을 업데이트 하고 싶습니다.
데이터 읽어 오는 것 까지는 문제가 없는 것 같은데, 계속 에러가 떠서 고생하고 있습니다.
어떻게 해야하나요???

set f [open "test.in" r]
for {set i 1} {$i <=$::num} {incr i} {
        set list [list]

        gets $f line
        set data [join $line]
        if { $data != {} } {
                foreach j {1 2 3 4 5 6 7 8 9 10} {
                        set arr($i,$j) [lindex $data [expr $j - 1]]
                                lappend list [set $arr($i,$j)]
                }
        }
        $tbl insert end $list
}

test.in파일에 써 있는 데이터 입니다.

1.0 0.0 0.0 0.03 0.03 0.03 0.0 0.0 1.0 0.0
1.0 2.0 3.0 0.03 0.03 0.03 0.0 0.0 1.0 0.0