tcl - 需要期望脚本的帮助

Question

我正在尝试实现某个期望脚本我有一个 txt 文件..

它包含类似的数据

1 ip telnetname slot1 slot2 assoc1 assoc2 mep1 mep2
2 ip telnetname slot1 slot2 assoc1 assoc2 mep1 mep2

我想制作一个期望脚本，它为文件中的每一行生成一个 telnet 会话，该会话使用从该行设置的变量，例如从第 1 行生成 telnet，其中每个单词 1 作为一个变量集，以便稍后在命令中使用。

这是我到目前为止尝试过的

foreach ip $ips telnetname $telnetnames slot1 $slots1 slot2 $slots2  { commands here }

Answer 1

从描述中不太清楚您要尝试做什么，但让您的代码像这样工作可能是最简单的：

# Slurp the data into Tcl; it's not *that* long, is it?
set f [open "inputfile.txt"]
set data [read $f]
close $f

foreach line [split $data "\n"] {
    # Tcl's [scan] is like C's sscanf(), but memory-safe!
    if {[scan $line "%d %s %s %s %s" -> ip telnetname slot1 slot2] != 5} {
        # Not what was expected; skip it!
        continue
    }
    # Now do something with $ip, $telnetname, $slot1 and $slot2 ...
}