expect之逐行打印文件

#!/usr/bin/expect --

set f [open file.txt]
while {1} {
    set line [gets $f]
    if {[eof $f]} {
        close $f
        break
    }
    puts "Read line: $line"
}

[解析]

    注意几个TCL语法的函数，open打开文件然后赋值给变量f，while条件一直为真，然后逐行gets读取给变量line，if变量f读取结束eof，那么关闭该变量，退出本层循环，不满足条件就一直输出行。我说得有点绞，大家再理解理解。