expect demonstration
Posted to
tcl
by rmax at Wed Oct 06 09:45:50 GMT 2021
view raw
if
{
$argc
== 1} {
for
{
set
i 0} {
$i
< 10} {
incr
i} {
puts
$i
after
1000
}
}
else
{
package
require Expect
spawn
$argv0
x
expect 5 {
puts
"got five!"}
}
Recent Posts
tcl by mookie
23 hours ago
tcl by oldlaptop
5 days ago
tcl by rhobart
18 days ago
tcl by rhobart
18 days ago
tcl by rhobart
18 days ago
tcl by Bradipo
18 days ago
tcl by rhobart
19 days ago
tcl by sssc
22 days ago
tcl by mookie
38 days ago
tcl by JMN
46 days ago
Submit
New paste
Documentation
From Jabber