in reply to using Net::SSH::Perl and Expect
my $exp = Expect->new; $exp->spawn('sh'); $exp->send( "ssh $host\n" ); $exp->expect(15, 'assword:', '$ ') == 1 or die "Failed at: " . $exp- +>before . " "; $exp->send( $passwd ); ...
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: using Net::SSH::Perl and Expect
by jfroebe (Parson) on Nov 09, 2004 at 02:00 UTC |