我是新手，期待脚本，所以请原谅我的绊脚石......
下面是我的期望脚本的内容。目的是滚动输出的几个屏幕，在每个屏幕之后都会提示用户“继续？[y/n]”。
最后，当没有更多屏幕时，会显示“%”提示，这应该导致执行退出 while 循环。
set more_screens 1
while {$more_screens > 0} {
sleep 10
expect {
"\[y/n]" { send "y\r"}
"% " { set more_screens 0 }
}
}
相反发生的是......它永远停留在while循环中，一遍又一遍地发送“y”。我已经设置了“exp_internal 1”，并且从那个输出它“似乎”像期望不断重新阅读它已经匹配的文本，因此不断看到“[y/n]”，并在以下情况下不断发送“y” ，实际上只有2屏输出，因此只有2个“继续？[y/n]”提示。
(可能不需要 sleep 语句 - 我只是添加它来解决问题 - 它没有 - 并让我更好地消化调试输出。)
底线......我的代码中有任何明显的错误吗？我会采取任何建议来改进这一点并消除无休止的循环。
在詹姆斯提出了一个有用的建议之后，编辑下面添加到这个问题。
感谢 James 的快速回复和有用的建议!但...
您的方法仍然存在同样的问题(尽管您的方法更加优雅，我会将其添加到我的期望工具包中。)
正如最初指出的那样，问题似乎肯定是每次执行expect 语句都会重新读取已经读取并比较的文本。下面是我执行 James 的“exp_continue”代码时的输出，我设置了“exp_internal 1”以在我的屏幕上获得调试输出......
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
>expect: does "get dump tables\r\n\r% get dump tables\n\r\r\nIfn TableName Configured >MaxUse InUse LastDropTime\r\n3 cdm_app 100002 190 33 >\r\n3 cdm_conv 2000002 675180 4813 \r\n3 cdm_pdisc 250002 >250002 1304 01-24-2014-19:14:59\r\n3 cdm_kpi 100001 141 25 >\r\n3 cdm_qoe 500003 204918 1578 \r\n3 cdm_qoe_hd 2500003 >582993 1578 \r\n3 cdm_kpi_error_app 100001 5 2 \r\n3 >cdm_kpi_error 100001 7 2 \r\n3 asr_cache 1000000 >1000000 999995 \r\n3 asr_sess 2000000 62670 29748 \r\n3 >asr_conn 3000000 64428 31147 \r\n3 asr_sess_keys 1500000 >1015269 1009049 \r\n3 asr_conn_opts 6000000 0 0 \r\n3 >asr_events 4000000 5239 144 \r\n3 skt_table 2000000 >2000000 2000000 \r\n3 skt_trans 1000000 408020 254674 \r\n3 >ses_sip_db 5000 0 0 \r\n3 ses_gtp_mob_txn 5000 >0 0 \r\nContinue? [y/n]: " (spawn_id exp6) match glob pattern "[y/n]"? yes
>expect: set expect_out(0,string) "n"
>expect: set expect_out(spawn_id) "exp6"
>expect: set expect_out(buffer) "get dump tables\r\n\r% get dump tables\n\r\r\nIfn"
>send: sending "y\r" to { exp6 }
>expect: continuing expect
>
>
>expect: does " TableName Configured MaxUse InUse LastDropTime\r\n3 >cdm_app 100002 190 33 \r\n3 cdm_conv 2000002 >675180 4813 \r\n3 cdm_pdisc 250002 250002 1304 01-24-2014->\r\n3 cdm_kpi 100001 141 25 \r\n3 cdm_qoe 500003 >204918 1578 \r\n3 cdm_qoe_hd 2500003 582993 1578 \r\n3 >cdm_kpi_error_app 100001 5 2 \r\n3 cdm_kpi_error 100001 >7 2 \r\n3 asr_cache 1000000 1000000 999995 \r\n3 >asr_sess 2000000 62670 29748 \r\n3 asr_conn 3000000 >64428 31147 \r\n3 asr_sess_keys 1500000 1015269 1009049 \r\n3 >asr_conn_opts 6000000 0 0 \r\n3 asr_events 4000000 >5239 144 \r\n3 skt_table 2000000 2000000 2000000 \r\n3 >skt_trans 1000000 408020 254674 \r\n3 ses_sip_db 5000 >0 0 \r\n3 ses_gtp_mob_txn 5000 0 0 \r\nContinue?
>[y/n]: " (spawn_id exp6) match glob pattern "[y/n]"? yes
>expect: set expect_out(0,string) "n"
>expect: set expect_out(spawn_id) "exp6"
>expect: set expect_out(buffer) " TableName Con"
>send: sending "y\r" to { exp6 }
>^Csighandler: handling signal(2)
>async event handler: Tcl_Eval(exit 130)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
在第一次“[y/n]”上的expect匹配之后，它会做一个“expect:continuous expect”(上面文本输出的中间)，然后接下来读取的文本块是，除了前几个词，相同的文本块已经阅读和比较。
我错过了什么吗？？？如果期望语句重新读取已处理的输出，这一定是一个问题，是吗？ (我查看了目标系统发送的实际输出，它不会第二次发送相同的文本块。)
同样，我是expect脚本的新手，但我看不到上面调试输出显示的任何其他解释。 (而且，我很抱歉无法正确格式化输出 - 我真的在努力!)
感谢任何有耐心阅读以上所有内容的人，也许有解释或建议。
最佳答案
你需要被 exp_continue 命令解救。 :-)
当遇到该命令时，该命令所做的是留在期望块内并尝试再次匹配，无论可能出现什么新输入。
所以你真的可以将上面的代码缩短为:
expect {
"\[y/n]" {
send "y\r"
exp_continue
}
"% " {
# Do whatever is needed here, after which program flow will continue *outside* of the expect block
}
}
让我知道这是否适合您!
编辑 - 基于@feenyman99 附加信息:
好的，我明白是什么了。你有错误的模式。通过使用“[y/n]”，将使用单个“n”字符生成匹配。有你匹配的字符串:
expect_out(0,string) 保存匹配的模式。 expect_out(buffer) 保存从缓冲区中移除的输入部分，它保存所有输入直到并包括匹配的模式(从那时起，下一个期望操作将在最后一个匹配模式之后寻找输入的匹配项)。如您所见，它将输入保持到并包括找到的第一个文字 'n' 字符(换行符不计算在内):
所以发生的事情是您的脚本在出现是/否提示之前发送了“y\r”方式。而且，虽然我没有看到其余的日志，但我猜下一场比赛会在点击下一个“n”字符后不久发生。
因此，您需要更改模式匹配语句以匹配是/否提示。最好使它成为正则表达式匹配 (-re)。我测试了以下内容，它有效(在 Tcl 8.4.13 上测试):
expect {
-re "\\\[y/n]" { send "y\r"}
多个反斜杠是因为反斜杠也是模式匹配器中的转义字符。有点棘手，但有时需要它们。
让我知道这是怎么回事。你现在应该已经准备好了。
PS:这可能会派上用场:http://www.tcl.tk/doc/howto/regexp81.tml
关于while-loop - 期望在 while 循环中 - 永远循环，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/21342588/