Shell Programming and Scripting

while {$Exit != 1 } {
# Temporary simulated commands/responses
expect {
# Greeting, response
    "hai kimiko"    {
        send "\r"
        send "o hai\r"
    }
# Change rooms
    "kimiko, go to"    {
        #Capture the word following 'kimiko, go to ' and store in GoRoom
        send "g" # Initiates room change
        send "$GoRoom\r" #Dumps GoRoom variable into change room command
     }
# Approval of all 'kick' actions against user 'magizian'
    "needs approval to kick magizian"    {
        send "k"
        send "approve\r"
    }
# Exit commandÍ
    "kimiko, you may go now"    {
# Sets Exit variable to 1 to cause loop to exit
        set Exit "1"
        send "\r"
        send "bai\r"
    }
}

# Close brace for end of 'while' loop
}

$ echo "kimiko, go to work" | ./kimiko.sh
Going to: work

$ cat kimiko.sh
#!/usr/bin/expect -f
expect {
   -re "kimiko, go to (.*)\n" {
       set output $expect_out(1,string)
       send "Going to: $output\n"
   }
}
expect eof

# Change rooms
    "kimiko, go to (.*)\n" {
       set TargetRoom $expect_out(1,string)
       send "\r"
       send "going to $TargetRoom\r"
       send "g"
       send "$TargetRoom\r"
     }