5 lines
88 B
Tcl
5 lines
88 B
Tcl
set fh [open $filename]
|
|
while {[gets $fh line] != -1} {
|
|
# process $line
|
|
}
|
|
close $fh
|