用TCL语言创建一个文本文档，写入内容1-100，每行一个，再打开文件，将这些内容读取并显示-转载

proc writenum {} {
   set f [open ./num.txt w+]
   set i 1
   while {$i <= 100} {
       puts $f "$i"
       incr i
   }
   puts $f "\n"

   close $f
}
proc readline {} {
   set f [open ./num.txt r+]

   while {gets $f line} {
       puts $line
   }

   close $f

}

writenum

readline