#!/usr/bin/tclsh set fp [open "input.txt" w+] puts $fp "test\ntest" close $fp set fp [open "input.txt" r] while { [gets $fp data] >= 0 } { puts $data } close $fp
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more