Posted to tcl by aspect at Thu May 05 07:24:07 GMT 2011view pretty

#!/usr/bin/tclsh
package require Expect
spawn sh -c "sleep 10; echo done!"
fconfigure stdout -buffering none
expect {
    -timeout 1
    timeout {
        send "."
        puts -nonewline "."
        exp_continue
    }
    eof {
        puts "Finished - got EOF"
    }
    done {
        puts "Finished - got 'done'"
    }
}