uso del modulo Net::FTP

[Raul21]

Hola buenos días:

Estoy usando el modulo Net::FTP para transferir un archivo desde una maquina remota a otra.

He escrito el siguiente codigo:

#!/opt/Omnibus/scripts/bin/perl -w


use Net::FTP;

$ftp = Net::FTP->new("10.195.23.34", Debug => 0)
or die "Cannot connect to some.host.name: $@";

$ftp->login("consulta",'consulta')
or die "Cannot login ", $ftp->message;

$ftp->cwd("/home/consulta")
or die "Cannot change working directory ", $ftp->message;

$ftp->get("clientesPrimarios.lookup","/opt/Omnibus/scripts/raul")
or die "get failed ", $ftp->message;

$ftp->quit;


Con esto pretendo conectarme a la maquina con host 10.195.23.34, la cual tiene como usuario: consulta y como password : consulta.
Entonces quiero obtener en la otra el fichero que está en el directorio /home/consulta llamado clientesPrimarios.lookup y ponerlo en la otra maquina en el fichero con ruta opt/Omnibus/scripts/raul.

Al ejecutarlo me sale el siguiente error : "Cannot login Login incorrect."

No se que puede suceder porque el login es el que pongo.

Si alguien pudiera ayudarme lo agradeceria.
Gracias un saludo.

[monoswim]

Viendo la documentación del módulo encontré esto

login ([LOGIN [,PASSWORD [, ACCOUNT] ] ])

Log into the remote FTP server with the given login information. If no arguments are given then the Net::FTP uses the Net::Netrc package to lookup the login information for the connected host. If no information is found then a login of anonymous is used. If no password is given and the login is anonymous then anonymous@ will be used for password.

If the connection is via a firewall then the authorize method will be called with no arguments.
authorize ( [AUTH [, RESP]])

This is a protocol used by some firewall ftp proxies. It is used to authorise the user to send data out. If both arguments are not specified then authorize uses Net::Netrc to do a lookup.

Talvés necesites usar la función authorize...

Checkea también la página de ejemplos

http://www.csh.rit.edu/~adam/Progs/programs.html

Saludos

[Raul21]

Gracias por todo.

Ya está solucionado. Era problema de la maquina no del codigo.


Muchas gracias y un saludo