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