|
my $ssh = Net::SSH2->new;
$ssh->connect($hostname, $port);
$ssh->auth(username => $username, password => $password);
my $chan = $ssh->channel();
$chan->blocking(0);
$chan->ext_data('merge');
while (1) {
print " $pwd >";
my $cmd = <STDIN>;
last if not defined $cmd;
print $chan $cmd;
print while <$chan>;
print $chan "pwd\n";
chomp($pwd = <$chan>);
}
|
