Looping Through Lines of a File in Tcl

[Max Drown (Infor)]

In perl you can easily loop through lines of a file like this …

Code:

while () {

or even …

Code:

while (<>) {

Is there a way to do this in Tcl?

-- Max Drown (Infor)

Topic

[Max Drown (Infor)]

Found this on the web. Seems to work.

Code:

set f [open test.txt r]

while {[gets $f line] != -1} {
   puts $line
}

-- Max Drown (Infor)

[Author]

Replies