Using perl Syntax Highlighting
#!/usr/bin/perl
use Net::SFTP::Foreign;
my $host = 'XXX.X.XX.XXX';
my $port = 2222;
my $user = 'root';
my $pass = '***********';
my $sftp = Net::SFTP::Foreign->new(
host => $host,
port => $port,
user => $user,
password => $pass,
# more => '-v', # No es compatible esto con la opci<F3>n 'password' anterior
);
$sftp->error and die "SSH connection failed: " . $sftp->error;
print $sftp->cwd, "\n";
my $ficheros = $sftp->ls;
print join("\n", map { $_->{filename} } @$ficheros );
use Net::SFTP::Foreign;
my $host = 'XXX.X.XX.XXX';
my $port = 2222;
my $user = 'root';
my $pass = '***********';
my $sftp = Net::SFTP::Foreign->new(
host => $host,
port => $port,
user => $user,
password => $pass,
# more => '-v', # No es compatible esto con la opci<F3>n 'password' anterior
);
$sftp->error and die "SSH connection failed: " . $sftp->error;
print $sftp->cwd, "\n";
my $ficheros = $sftp->ls;
print join("\n", map { $_->{filename} } @$ficheros );
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
y me manda el siguiente error:
- Código: Seleccionar todo
password authentication is not available, IO::Pty and Expect are not installed at sftpConect2.pl line 9
No sé si me falta configurar algo, ya que sí puedo entrar con el fillezilla ¡¡y con él no hay problema con la autenticación!!... no sé si me puedan ayudar... ya que traté de instalar el módulo Net::SFTP por el CPAN y la verdad como estoy muy, muy verde pues me votaba muchos errores y aquí en algún foro leí que con esta librería era mucho más fácil, pero me manda ese error.
Ojalá me puedan ayudar.