6 lines
107 B
Tcl
6 lines
107 B
Tcl
set fh [open $filename]
|
|
set data [read $fh]
|
|
close $fh
|
|
foreach line [split $data \n] {
|
|
# process line
|
|
}
|