Hola, perleros. Tengo un problema con el siguiente código para transferir ficheros de mi disco duro a un servidor remoto.
Quiero pasar todos los ficheros .htm que se encuentran en el directorio de mi ordenador /home/enric/htm al servidor (dispongo del nombre, usuario y contraseña).
Aquí va el código:
#!/usr/bin/perl -w
use strict;
use Net::FTP;
my $username = "meteoxx.com";
my $pwd = "xxxxx73";
my $ftp = Net::FTP->new("xxx.xx.132.xxx", Debug => 0) or die("No se pudo conectar ...