Skip to content

Instantly share code, notes, and snippets.

@etaf

etaf/[ Tcl ] read file by line

Last active August 29, 2015 14:06
Show Gist options
  • Save etaf/882251a1cf98c6c2a5e2 to your computer and use it in GitHub Desktop.
Save etaf/882251a1cf98c6c2a5e2 to your computer and use it in GitHub Desktop.
Download ZIP
[ Tcl ] read file by line
Raw
[ Tcl ] read file by line
set fp [open $some_file]
while {-1 != [gets $fp line]} {
puts "The current line is '$line'."
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment