tcl - TCL：行以字符串字符开头，按原样打印行而不做任何更改

Question

读取文件系统上名为 input.txt 的文件的 TCL 脚本；

set fp [open "input.txt" r]
while { [gets $fp data] >= 0 } {
   puts $data
}

如何检查文件中的行是否以字符串字符开头并打印出来？

Answer 1

你是这个意思吗？

while {[gets $fp data] >= 0} {
    if {[string match -nocase {[a-z]*} $data]} {
        puts $data
    }
}

请参阅字符串匹配手册页。您可能还对正则表达式感兴趣