将多个变量从 Bash 脚本传递到 Expect 脚本

Question

我一直在尝试获得一个 expect/bash 脚本，它可以读取 CSV 文件的每一行并提取主机名地址和密码；因为对于我尝试访问的每个 MikroTik，这些都是不同的。

我最近向数千个用作住宅解决方案的 MikroTik 路由器发送了一个 auto.rsc 文件。这个文件填满了硬盘（它有一个 IP 扫描，它创建了一个日志，设法完成了这个动作。）这阻止了我发送额外的 auto.rsc 文件来清除日志，因为没有可用的空间。

我想到的解决方案是使用 expect 脚本登录这些并删除 auto.log 文件。这对我的 RSA 脚本是成功的。

set timeout 3
set f [open "dynuList.txt"]
set dynu [split [read $f] "\n"]
close $f

foreach dynu $dynu {
spawn ssh -o "StrictHostKeyChecking no" -i mtk4.key admin+t@$dynu
expect {
"> " { send "\:do \{ file remove push.auto.log \} on-error\=\{ \[\] \}\r" }
"Connection refused" { catch {exp_close}; exp_wait; continue }
eof { exp_wait; continue }
}
expect ".*"
close
wait
}

我遇到问题的脚本如下：

n=`wc -l hostPasswordDynuList.csv | awk '{print}'`
i=1
while [ $i -le $n ]
do
host='awk -F "," 'NR==$i {print }' hostPasswordDynuList.csv'
password='awk -F "," 'NR==$i {print }' hostPasswordDynuList.csv'
./removeLogExpect.sh $host $password
i=`expr $i + 1`
done

哪个应该将变量传递给这个 expect 脚本

#!/usr/bin/bash/expect -f
set timeout 3
set host [lindex $argv 0]
set password [lindex $argv 1]

spawn ssh -o "StrictHostKeyChecking no" admin+t@$host
expect {
"password: " { send $password"\r" }
"Connection refused" { catch {exp_close}; exp_wait; continue }
eof { exp_wait; continue }
}
expect {
".*" { send "\:do \{ file remove push.auto.log \} on-error\=\{ \[\] \}\r" }
}
expect ".*"
close
wait

我希望脚本能够连接然后登录到每个没有 RSA 密钥设置的 MikroTik，然后命令清除 auto.log 文件。就目前而言，脚本似乎并没有将变量传递给预期的一半。任何帮助将不胜感激。

Answer 1

expect 是 Tcl 语言的扩展，它是一种功能齐全的编程语言：它可以读取文件和解析逗号分隔的字段。不需要低效的 shell 脚本来多次调用您的 expect 程序

#!/usr/bin/bash/expect -f
set timeout 3

set file hostPasswordDynuList.csv
set fh [open $file r]

while {[gets $fh line] != -1} {
    lassign [split $line ,] host password

    spawn ssh -o "StrictHostKeyChecking no" admin+t@$host
    expect {
        "password: " { send $password"\r" }
        "Connection refused" {
            catch {exp_close}
            exp_wait
            continue 
        }
        eof {
            exp_wait
            continue 
        }
    }
    expect ".*" 
    send ":do { file remove push.auto.log } on-error={ \[\] }\r"
    expect ".*"
    exp_close
    exp_wait
}

close $fh

有关 Tcl 内置命令的文档，请参阅 https://tcl.tk/man/tcl8.6/TclCmd/contents.htm。

行 expect ".*" 可能没有按照您的想法行事：默认的模式匹配样式是 glob，因此 .* 查找文字点后跟任意数量的字符。您可能会想到需要为其添加 -re 选项的正则表达式 "any character zero or more times"。然而，健壮期望代码的关键是期望更具体的模式。

将多个变量从 Bash 脚本传递到 Expect 脚本

Passing multiple variables from a Bash Script to an Expect Script

linux

bash

awk

expect

mikrotik