Posted to tcl by ric at Fri Jun 17 09:34:10 GMT 2011view raw

  1. ############################## tcl code ##############################
  2. #!/usr/bin/tclsh8.5
  3. package require Expect
  4.  
  5. proc exp_wrap {} {
  6. global expect_out spawn_id
  7.  
  8. set p1 {"P1:1" {puts "Got 1"}}
  9. expect $p1
  10. }
  11.  
  12. spawn ./p1.sh
  13. exp_wrap
  14.  
  15. ############################## p1.sh ##############################
  16. #!/bin/bash
  17. i=0
  18. while sleep 1; do
  19. echo P1:$i
  20. let i++
  21. done