Telnet ポートを接続するための Tcl スクリプトを実行しています。このスクリプトでは、すべての CMD 出力をログ ファイルに保存します。Tclスクリプトでこれを行う方法は? 以下のようにスクリプトします。
#!/usr/bin/expect -f
#!usr/bin/expect
package require Expect
spawn telnet $serverName $portNum
expect "TradeAggregator>"
send "Clients\r"
expect "Client:"
send "1\r"
expect "1-Client>"
send "Pollers\r"
expect "Client Pollers"
send "2\r"
send "n\r"
expect ">"
set passwordOption $expect_out(buffer)
set searchString "Not confirmed"
if {[string match *$searchString* $passwordOption]} {
puts "match found" }\
else {
puts "match not found"
xmlPasswordChange $polName
}
すべての puts 出力と xmlPasswordChange プロシージャ出力がログ ファイルに出力されません。私が間違っているところを指摘してください。
事前にご協力いただきありがとうございます。