linux-telnet-具有期望的脚本

Question

我正在编写一个期望脚本，该脚本通过telnet与服务器通信，但是现在我需要评估服务器的答复。

用法：

./edit.expect

EXPECT脚本：

#!/usr/bin/expect<br>
spawn telnet ip port
expect "HUH?"
send "login testuser pass\r"
expect "good"
send "select 1\r"
expect "good"
send "me\r"
expect "nick=testuser id=ID group=testgroup login=testuser"
send "edit id=ID group=3\r"
expect "good"
send "quit\r"

如果我发送命令“我”，我将从服务器上得到我需要评估的答复。 来自服务器的答复如下例所示：“ nick = NICK id = ID group = GROUP login = LOGIN”。

如何提取回复的ID并在发送命令中使用它？

我希望你能帮助我。 非常感谢！

Answer 1

您也可以尝试这种方式。

set user_id {}
expect -re {nick=(.*)\s+id=(.*)\s+group=(.*)\s+login=(.*)\n} {
        #Each submatch will be saved in the the expect_out buffer with the index of 'n,string' for the 'n'th submatch string
        puts "You have entered : $expect_out(0,string)"; #expect_out(0,string) will have the whole expect match string including the newline
        puts "Nick : $expect_out(1,string)"
        puts "ID : $expect_out(2,string)"
        puts "Group : $expect_out(3,string)"
        puts "Login : $expect_out(4,string)"
        set user_id $expect_out(2,string)
}

send "This is $user_id, reporting Sir! ;)"
#Your further 'expect' statements goes below.

您可以自定义regexp按照你的愿望，并注意使用大括号{}与-re在旗expect命令。

如果您使用大括号， Tcl不会做任何变量替换，如果你需要在使用变量的expect ，那么你应该使用双引号，并相应地需要逃避反斜杠和通配符运算符。

Answer 2

expect_out()使您可以将输入的字符串与正则表达式进行匹配，并在expect_out()数组中获得子匹配项。 在您的示例中，您可以使用

send "me\r"
expect -re {nick=([^ ]*) id=([^ ]*) group=([^ ]*) login=([^ ]*)}
set nick $expect_out(1,string)
set id $expect_out(2,string)
set group $expect_out(3,string)
set login $expect_out(4,string)
puts "GOT nick: $nick  id: $id  group: $group  login: $login"
send "edit id=$id group=3\r"
etc...

编辑：字符串必须在{}中，以避免命令扩展