Estoy intentando hacer un script de prueba para conectarme por FTP a un sitio, bajarme ciertos ficheros y desconectarme, todo ello usando el módulo Net::FTP.
Pero resulta que no puedo conectarme al servidor. En consola lo que me sale es esto:
- Código: Seleccionar todo
No se pudo conectar al servidor at /home/sernamar/scripts/prueba.pl line 16.
El script prueba.pl es el siguiente:
Using perl Syntax Highlighting
#! usr/bin/perl -w
use strict;
use warnings;
use Net::FTP;
# Datos para conectarse al IGS
# ----------------------------
my $address = "ftp://igs.ensg.ign.fr";
my $username = "anonymous";
my $pwd = '[email protected]';
# Conectar al servidor
# --------------------
my $ftp = Net::FTP->new($address,Debug => 1) or die("No se pudo conectar al servidor");
$ftp->login($username,$pwd);
# Deconectar del servidor
# -----------------------
$ftp->quit or die("No se pudo desconectar del servidor: $!");
use strict;
use warnings;
use Net::FTP;
# Datos para conectarse al IGS
# ----------------------------
my $address = "ftp://igs.ensg.ign.fr";
my $username = "anonymous";
my $pwd = '[email protected]';
# Conectar al servidor
# --------------------
my $ftp = Net::FTP->new($address,Debug => 1) or die("No se pudo conectar al servidor");
$ftp->login($username,$pwd);
# Deconectar del servidor
# -----------------------
$ftp->quit or die("No se pudo desconectar del servidor: $!");
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
No sé cuál puede ser el problema. Tengo el módulo instalado, y en @INC está el path al mismo.
. Lo que viene detrás es el nombre de la máquina.