tcl - Tcl スクリプトを使用してテキスト ファイルから 2 つの異なる文字列を出力する必要がある

Question

次の tcl スクリプトを使用して、ファイルから 2 つの連続する行から 2 つの異なる文字列を取得する必要がありますが、機能しません。したがって、ここでは文字列「Clock」と「b0」を出力する必要があります。時計を印刷できます。しかし、「クロック」「b0」の両方が必要です

set f [eval exec "cat src.txt"]
set linenumber 0

while {[gets $f line] >= 0} {
    incr linenumber
    if {[string match "Clock" $line] >= 0 } {
        # ignore by just going straight to the next loop iteration
        while {[gets $f line] >= 0} {
            incr linenumber
            if { [string match "b0" $line"]} {
                close $out
                puts "final $line"
            }      
            puts "\n$line"
            continue
        }
    }
}
close $f