ホストに telnet プロセスを生成します。私はコマンドを送信します。見返りを期待します。これはしばらく続きます。しかし、このやり取りの間のどこかで、ホストへの接続が不思議なことに失われ、生成された (現在は停止している) telnet プロセスに何かを「送信」しようとしているときにスクリプトが停止します。spawn id と送信するコマンドを引数として取るプロシージャを書きたいと思います。コマンドを「送信」する前に、スポーン ID が存在する (つまり、プログラムとホスト間の接続が存在する) かどうかを確認したいと思います。それ以外の場合は、終了したいと思います。このようなもの:
proc Send {cmd sid} {
if { $sid is not dead yet } { ;## don't know how to do this
part
send -i $sid "$cmd\r"
} else {
puts "channel id: $sid does not exist anymore. Exiting"
exit
}
}