求助 expect的foreach循环怎么从文件读取？

yh81521

因为脚本很多，并且经常要修改服务器IP。
下面的expect的foreach循环，IP变量的列表怎么从文件读取？？
或者有什么更好的配置方式，能方便集中修改的？？

#!/usr/bin/expect
foreach IP {
192.168.1.2
192.168.1.4
.............
}

yestreenstars

try:

1. for IP in $(cat file)
   
2. do
   
3. ...
   
4. done

复制代码

我写的是shell的语法，expect就不知道了~

Shell_HAT

经常要修改服务器IP的目的是什么？也许可以有更好的方法

jason680

回复 1# yh81521

how about this ...

# cat t.exp
#!/usr/bin/expect --

puts "start expect"

foreach ip [ list 192.168.1.2 192.168.1.4 ] {
  puts $ip
}
puts "endof expect"

# expect -f t.exp
start expect
192.168.1.2
192.168.1.4
endof expect

   

waker

set f [open ur_ip_list_file]
while { [gets $f ip] != -1] } {
xxoo $ip
....
}

yh81521

回复 3# Shell_HAT

是这样的，比如一个项目有100台机器，100台机器终又分很多功能服务器集群。
我用expect写维护这个项目脚本，比如：启动、停止服务、备份、修改配置文件等。示例如下：

#!/usr/bin/expect
set bakdate [exec date +%Y%m%d_%H%M]
puts $bakdate

#程序部分
#关闭login服务器集群。
set n 1
foreach ip {
192.168.1.100
192.168.1.101
192.168.1.102
192.168.1.103
192.168.1.104
192.168.1.105
192.168.1.106
192.168.1.107
192.168.1.108
192.168.1.109
}   {
puts "ssh to loginserver_$n ip $ip ......"
spawn ssh user@$ip -o StrictHostKeyChecking=no
expect "Password:"
send "123456\r"
expect "*]$*"
send "sudo su -\r"
expect "*]#*"
#停服务
send "pkill python\r"
expect "*]#*"
send "sleep 2\r"
expect "*]#*"
#检测服务是否停止成功
send "num\=`ps -e |grep python |wc -l`\r"
send "if \[ \$num \= 0 \];then (echo -e \"\\033\[42;37m ok \\033\[0m\");else (echo -e \"\\033\[41;37m err \\033\[0m\") && echo \$num && echo `ps -e |grep python`;fi;\r"
expect "*....*"
send "exit\r"
expect "*]$*"
send "exit\n"
expect eof
set n [expr $n+1]
}

#关闭大厅服务器集群。
set n 1
foreach ip {
192.168.1.150
192.168.1.151
192.168.1.152
192.168.1.153
192.168.1.154
192.168.1.155
192.168.1.156
192.168.1.157
192.168.1.158
192.168.1.159
}   {
...省略
}

#关闭game服务器集群。
set n 1
foreach ip {
...省略
}   {
...省略
}

#关闭mongo服务器集群。
set n 1
foreach ip {
...省略
}   {
...省略
}
。
。
。

这一个脚本就会有很多foreach循环，关键是有很多脚本，每个脚本里都是不同的服务器集群，执行停服务，备份，修改等操作。
但不同的服务器集群功能不同，执行的命令不同，不能一个循环就解决。
这样的话新部署项目或者有IP更改的话，每一个脚本的每一个服务器集群都要修改。所以想从文件读取每一个服务器集群的IP。这样每次改一个地方都改了。
就像用shell，循环可以从文件每次读取一行，就像2楼的同学。

yh81521

waker 发表于 2014-03-04 15:35
set f [open ur_ip_list_file]
while { [gets $f ip] != -1] } {
xxoo $ip

测试，waker兄弟的方法成功，可以从文件读取IP列表。非常感谢，解决大问题。
-1] 后面多一个方括号。