Tengo el siguiente script, que no hace más que realizar una conexión SSH a un servidor, lo que me gustaría saber es si se puede forwardear los puertos, es decir que yo le mande el puerto por el cual deseo acceder a ese servidor:
¿Alguna idea?
Using perl Syntax Highlighting
use Net::SSH::Expect;
my $ssh = Net::SSH::Expect->new (host => "122.125,10,36", password=> '', user => 'root');
$ssh->connect();
my $ls = $ssh->exec("ls -l /");
print($ls);
$ssh->collect_exit_code(1);
my $who = $ssh->exec("pwd");
print ($who);
if ($ssh->last_exit_code() == 0) {
print ("Last command ran OK!\n");
} else {
print ("Last command failed and exited " . $ssh->last_exit_code());
}
$ssh->close();
my $ssh = Net::SSH::Expect->new (host => "122.125,10,36", password=> '', user => 'root');
$ssh->connect();
my $ls = $ssh->exec("ls -l /");
print($ls);
$ssh->collect_exit_code(1);
my $who = $ssh->exec("pwd");
print ($who);
if ($ssh->last_exit_code() == 0) {
print ("Last command ran OK!\n");
} else {
print ("Last command failed and exited " . $ssh->last_exit_code());
}
$ssh->close();
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
