在Tcl下如何完成"readline"？

[cyu021]

請問各位前輩

我現在要在Tcl下開一些檔案,但是使用read function會一次把所有的內容都讀出來，我要如何才能像用C++/Java一樣能夠一次讀一行(readline)呢？

謝謝各位前輩的協助

[yun]

set fd [open xxx.txt r]
while {![eof $fd]} {puts [gets $fd]}
close $fd

[cyu021]

謝謝

我剛剛也找到了一種寫法，但是因為混合了regular expression，所以稍微複雜了一點:

set f [open [lindex $argv 1] r]
set pat [lindex $argv 0]
while {[gets $f line] >= 0} {
if [regexp $pat $line] {
puts stdout $line
}
}
close $f