use Expect; my $exp = new Expect; $exp->raw_pty(0|1); $exp->log_stdout(0); $exp->spawn("ssh","servername","ls /"); $exp->expect(2,"-re","connecting"); $exp->send("yes\n"); $exp->expect(10,"-re","password"); $exp->send("password\n"); $exp->expect(0); $read = $exp->before(); $exp->soft_close(); $exp->log_stdout(1); print $read;
In reply to perl Expect by redkar
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |