how to save the expected response in a variable in expect

See more:

scripting

My script below works but trying to make it smarter. What I'd like for it to do is to parse the response, such as, AR1_6 in "execute . AR1_6" and send that as variable in proc send_packet_from_bsd instead of having a case for every response.

while { [gets $tests_to_run TEST] >= 0 } {

   set test_done 0

   send "t $TEST\r"
   sleep 2
   while { $test_done == 0 } {
      expect {
         "execute . AR1_6" { send_packet_from_bsd "AR1_6" }
         #"execute . AR1_16" { send_packet_from_bsd  "AR1_16" }
         #"execute . AR1_14" { send_packet_from_bsd  "AR1_14" }
         #"execute . AR1_1" { send_packet_from_bsd  "AR1_1" }
         "Test \* Complete" { set test_done 1 }
      }
   }
}