将"ping"输出发送到变量

use*_*348 3 scripting router tcl

我试图ping我的路由器中的一些IP地址.我用这个代码:

for {set n 0} {$n < 10} {incr n} {puts [exec "ping 199.99.$n.1]}
Run Code Online (Sandbox Code Playgroud)

但这将显示输出.问题是我不想看到输出.我想将该输出发送到另一个变量,并使用"regexp"搜索变量的内容并获得结果,并完成故事的其余部分.但我不知道怎么能这样做.

pot*_*bie 8

使用该set命令.该puts命令打印它的参数.

set pingOutput [exec ping "199.99.$n.1"]
Run Code Online (Sandbox Code Playgroud)

或者,append如果您希望所有IP的结果都在一个变量中.

set allPingOutput ""
for {set n 0} {$n < 10} {incr n} {
    append allPingOutput [exec ping "199.99.$n.1"]
}
Run Code Online (Sandbox Code Playgroud)