mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Input-loop/Tcl/input-loop-1.tcl

6 lines
88 B
Tcl
Raw Permalink Blame History

set fh [open $filename]
while {[gets $fh line] != -1} {
# process $line
}
close $fh
Reference in New Issue View Git Blame Copy Permalink