Os paso el código muy simple del script, se usa la librería Net::SSH::Perl, a ver si alguien me ilumina...
Using perl Syntax Highlighting
#!/usr/bin/perl
use Net::SSH::Perl;
$ssh=Net::SSH::Perl->new($host) or die $!;
$ssh->login($user, $password);
($stdout, $stderr, $exit)=$ssh->cmd(”comando_a_ejecutar”);
die $! unless (!$exit);
use Net::SSH::Perl;
$ssh=Net::SSH::Perl->new($host) or die $!;
$ssh->login($user, $password);
($stdout, $stderr, $exit)=$ssh->cmd(”comando_a_ejecutar”);
die $! unless (!$exit);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
He omitido las variables, la conexión funciona OK, ¡¡¡una ayudita please!!!
Gracias de antemano