Foro - Perl en Español

por **Kiloko** » 2008-06-05 18:27 @810

Efectivamente ese módulo es la solución aunque sería:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Net::SFTP::Foreign;
use Net::SSH::Expect;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Pero no logro hacer que funcione y en teoría es muy simple.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use Net::SFTP::Foreign;
use Net::SSH::Expect;
##################################
# You can do SSH authentication with user-password or without it.
# Making an ssh connection with user-password authentication
# 1) construct the object
my$ssh= Net::SSH::Expect->new(

            host =>"XXX.XXX.XXX",

            password=>'elpasword',

            user =>'apolo',

            raw_pty => 1
);
# 2) logon to the SSH server using those credentials.
# test the login output to make sure we had success
my$login_output=$ssh->login();
if($login_output!~/Welcome/){
die"NO SE PUDO CONECTAR $login_output";
}
#############################
my$remote="/usr/users/equipo/";
my$local="/home/apolo/Desktop/";


Net::SFTP::Foreign->new($sftp->get($remote,$local,))ordie"No se Puede logear ",$sftp->message."\n";

$sftp->quit;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ese código es muy curioso... ¿de dónde lo has sacado?

Yo he instalado Expect, no el módulo Net::SSH::Expect.

A mí me funciona muy bien, pero claro, la comunicación con el servidor se basa, no en contraseñas, sino que cada máquina se intercambia las cables públicas. Como dice el módulo, es mucho mejor ese tipo de verificación.

Si no puedes hacer lo de la verificación por claves, este es el código que a mi me funciona, usando el clásico usuario/contraseña.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use Net::SFTP::Foreign;

my$host='aproxi38.aproxi.net';
my$port=2222;
my$user='jferrero';
my$pass='defensor';

my$sftp= Net::SFTP::Foreign->new(

    host     =>$host,

    port     =>$port,

    user     =>$user,

    password =>$pass,
#    more     => '-v',   # No es compatible esto con la opción 'password' anterior
);

$sftp->erroranddie"SSH connection failed: ".$sftp->error;

print$sftp->cwd,"\n";

my$ficheros=$sftp->ls;
printjoin("\n",map{$_->{filename}}@$ficheros);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Kiloko** » 2008-06-06 13:01 @584

Efectivamente mi buen Explorer, sí funcionó, creo que mi confusión vino del siguiente párrafo de Net::SFTP::Foreign:

password => $password
passphrase => $passphrase

Use Expect to handle password authentication or keys requiring a passphrase. This is an experimental feature!
An explicit check for errors should be included always after the constructor call:
my $sftp = Net::SFTP::Foreign->new(...);
$sftp->error and die "SSH connection failed: " . $sftp->error;

Voy a investigar más adelante el módulo que bajé, porque también funciona; solamente que hace la entrada al equipo y hasta ahí se queda, pero por mientras voy a utilizar la otra aplicación, solo faltaría poner

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$sftp->get($remote,$local);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y todo listo...

Foro - Perl en Español

Instalación de Net::SFTP

Publicidad

¿Quién está conectado?