作者: Kaoru Kusunoki
日時: 2002/11/27(16:51)
始めまして。

きっと答えは単純ではないかと思ってるのですが
なぜ下記 スクリプトで 次のエラーを出してるのか
お恥ずかしいのですが、理解できません。

extra characters after close-brace
    while executing
"if {$cpu == 13 "
    (file "./sh-session.exp" line 25)


もしよろしければ、どなたか教えて頂けませんで
しょうか。

expect ですが、問題の箇所は tcl の範疇と思って
います。

>expect -v
expect version 5.32.1



!/usr/local/bin/expect --

spawn telnet "192.168.1.200"
set wait 2
set timeout 3
expect "hoge ...."
send "\r"

expect "login: "
send "taro\r"
expect "Password: "
send "jiro\r"
expect "taro#"

send "sh cpu\r"
expect -re "CPU.*\r"
set line_cpu $expect_out(0,string)
expect "taro#"

set percent [split $line_cpu " "]
set cpu [lindex $percent 2]

if {$cpu > 10 }{
        puts "Buuu Over \r"
} else {
        puts "Low\r"
}

send "exit\r"

---------------- 
くすのき@かなざわ
http://www.heididorf.net
kusunoki@...-inet.or.jp