Estoy escribiendo un script que se conecte a un entorno remoto mediante el modulo Net::SFTP.
El hecho es que por más que lo intento, siempre obtengo el mismo error:
Permission denied at /usr/perl5/site_perl/5.8.4/Net/SFTP.pm line 62
He aquí el código:
Using perl Syntax Highlighting
my %args;
$args{user} = "pepe";
$args{password} = "secreto";
my $host = "maquina";
print "Connecting to $host...\n";
my $sftp;
eval {$sftp = Net::SFTP->new($host,%args)};
if ($@) { print "Sftp connection failed:\n $@\n"; }
$args{user} = "pepe";
$args{password} = "secreto";
my $host = "maquina";
print "Connecting to $host...\n";
my $sftp;
eval {$sftp = Net::SFTP->new($host,%args)};
if ($@) { print "Sftp connection failed:\n $@\n"; }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
He revisado mil veces el user, host y password y no veo dónde puede estar el problema. Cuando realizo un SFTP manualmente, funciona a la perfección, pero desde mi script no parece funcionar...
¿Alguna sugerencia?
Gracias por adelantado,
Saludos,
Felipe