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