feed.x

   1 #!/bin/expect
   2
   3 set f [open "copt.txt"]
   4 set cmds [split [read $f] "\n"]
   5 close $f
   6
   7 spawn vtysh
   8
   9 foreach command $cmds {
  10     expect "dell-s6000-16#"
  11     send "$command\r"
  12 }
  13
  14 interact