You are here

file을 읽어서 변수에 넣기??

위의 제목처럼 file의 내용을 읽은후 변수에 저장을 하려 하는데 안되네요..
os : xp
tcl ver : active8.4.10

c:Tempa 라는 file이 있습니다.
근에 a라는 file의 내용이 abc입니다.
위의 a라는 file을 읽은후 어떤 변수에 넣고
그변수의 내용을 button or label 에 넣으려고 하는데 안디가네요..
내용을 읽은후 어케 변수에 넣을수 있는지?

set k [open /Temp/a r]
while { [gets $k ab] >= 0 } {
        puts $ab
}

frame .a
button .a.1 -text $ab -command exit

pack .a.1
pack .a

책의 내용으로 해본것인데...
안되네요..
아무리 해 보아도 안됩니다.
도움좀 주십시요.