in reply to Re^5: Expect script doubt
in thread Expect script doubt
$exp_inst->expect($timeout, ['-re' , $prompt, sub { my $fh = shift; $fh->send("$command\n"); } ] , [ timeout => sub { my_die "unable to get the prompt $prompt"; } ); ], sleep (2); $exp_inst->expect($timeout, [ qr'.*' , sub { $exp_inst->send("\n"); } ] , [ timeout => sub { print "Notting happening"; } ] );
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^7: Expect script doubt
by anonymized user 468275 (Curate) on Jun 27, 2005 at 13:07 UTC |