问如何从tcl脚本运行多个实例

EN

set commands [ list ]
lappend commands "no ip prefix-list DDOS permit $c_targetip/24"    
lappend commands "ip prefix-list DDOS seq $data permit $c_targetip/24"

lappend commands "router bgp"
lappend commands "network $c_targetip/24"
lappend commands "exit"

lappend allconnections "br2.sjc1"
lappend allconnections "br3.lax3"
lappend allconnections "br6.lax10"
lappend allconnections "br7.lax10"

# spawn all connections
foreach conn $allconnections {

    spawn telnet $conn
    lappend spawn_id_list $spawn_id

  }

  # run expect script for all connections individually
  foreach id $spawn_id_list {

    # this is important - for unknown (to me) reasons
    set spawn_id $id
    set timeout 30

    expect_after {
      timeout { catch { close }; wait; return 2 }
      eof { catch { close }; wait; return 1 }
    }

    expect {
      "Username: " {
        send "$user\r"
        exp_continue
      }
      "Password: " {
        send "$password\r"
        exp_continue
      }
      "#" {
        send "configure terminal\r" 
      }
    }

    expect "(config)#" 
    foreach command $commands {  
      send "$command\r"
      expect ")#"
    }

    send "exit\r"
    expect "#"
    send "exit\r"
    expect ">"
    send "exit\r"
    expect "closed"

    exp_close
    exp_wait

  }




  return 0;
}