错误的＃args：应为“ foreach varList list？varList list ...？命令”

Question

这是.txt文件

desk-12
desk-123
desk-auto-1234

这是.expect文件

#!/usr/bin/expect

set f [open "listOfIps.txt"]
set ips [split [read $f] "\n"]
close $f

set PASSWORD "test@123"
puts "$ips"

   foreach HOST $ips{

    expect -> "
    puts $HOST
    #spawn scp -r /usr/bin/scp /Users/test-123/1.png admin@$HOST:/home/testFolder
    expect {
    "*password:*"
    { send $PASSWORD\r}
     }
               }
    puts "completed"

有人可以帮助我解决“错误的＃args：应该是foreach varList list吗？varList list ...”吗？命令“”错误

Answer 1

在线

foreach HOST $ips{

您需要在$ips和{之间添加一个空格，以便Tcl正确解析。