我编写了以下expect
脚本来替换远程 Linux 机器上的 IP 地址
我使用perl
单行线来完成这项任务
我收到有关无法读取“HOME”的错误:没有这样的变量,
请告知我需要在脚本中更改哪些内容expect
以便更改请求的 IP?
#!/bin/ksh
expect_transfer=`cat << EOF
set timeout -1
spawn ssh 12.219.102.43
expect {
")?" { send "yes\r" ; exp_continue }
word: {send pass123\r}
}
expect # {send "export OLD=10.10.10.10 ; export NEW=1.1.1.1 ; perl -i -pe 's/\Q$ENV{OLD}\E/$1$ENV{NEW}$2/' /etc/hosts\r"}
expect # {send exit\r}
expect eof
EOF`
expect -c "$expect_transfer"
结果:
spawn ssh 12.219.102.43
[email protected]'s password:
Last login: Sun Aug 4 12:29:25 2013 from 12.219.102.43
[root@localhost ~]# can't read "HOME": no such variable
while executing
"send "export OLD=10.10.10.10 ; export NEW=1.1.1.1 ; perl -i -pe 's/\Q$HOME/.kshrc{OLD}\E/$HOME/.kshrc{NEW}/' /etc/hosts\r""
invoked from within
"expect # {send "export OLD=10.10.10.10 ; export NEW=1.1.1.1 ; perl -i -pe 's/\Q$HOME/.kshrc{OLD}\E/$HOME/.kshrc{NEW}/' /etc/hosts"
- 我很乐意在 ksh 脚本下获得任何其他解决方案
答案1
显然$ENV
扩展$HOME/.kshrc
到
send "export OLD=10.10.10.10 ; export NEW=1.1.1.1 ; perl -i -pe 's/\Q$HOME/.kshrc{OLD}\E/$HOME/.kshrc{NEW}/' /etc/hosts\r
你可以
在 Perl 行中尝试 $OLD 和 $NEW,
放弃期望,转而使用普通 ssh:
ssh [email protected] -- sed -i s/$OLD/$NEW/ /etc/hosts
通过正确的密钥设置,您也不需要密码。