tcl - 期待スクリプトの支援が必要

Question

私はtxtファイルを持っている特定の期待スクリプトを達成しようとしています..

のようなデータが含まれています。

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

ファイル内の各行に対して、変数セットを使用して telnet セッションを生成し、1 行目から telnet を生成するようにスクリプトを作成したいと考えています。これらの単語のそれぞれを変数として設定し、後でコマンドで使用できるようにします。

これは私がこれまでに試したことです

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 ...
}