tcl - expect_out（buffer）で特定の文字列をチェックし、見つかった場合はexpect_out（buffer）を出力するにはどうすればよいですか？

Question

expect_out(buffer)含まれている行の最初の文字が見つかった場合はそれを確認%してから、woleexpectoutの定数を出力します。

Answer 1

regexpの-lineanchorオプションを使用すると、^は文字列の先頭だけでなく、行の先頭と一致します。

if {[regexp -lineanchor -- {^%} $buffer]} {
    puts -nonewline $buffer
}

Answer 2

私は期待にそれほど精通していません。しかし、それが次のような通常のtcl文字列である場合：

%line1
^line2
&line3

次に、次のように実行できます。

set buffer "%line1\n^line2\n&line3"
foreach line [split $buffer "\n"] {
    if {[string index $line 0] == "%"} {
        puts $buffer; # prints the entire buffer, puts $line prints this line only
        break
    }
}