Foro - Perl en Español

por **coltx** » 2011-10-19 09:31 @438

Estimados su ayuda... he creado el siguiente script en un principio para listar un directorio de un ftp los archivos ASN*, después la idea es traerme los archivos desde la casilla, pero al ejecutar el script se queda ejecutando largo rato y no muestra nada... Gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
    use strict;
    use warnings;
    use Net::FTP;
 
    my $ftp_site     = 'server';
    my $ftp_dir      = 'OUT';
    my $ftp_user     = 'username';
    my $ftp_password = 'password';
    my $glob         = 'ASN*';
    my @remote_files;
 
    my $ftp = Net::FTP->new($ftp_site) 
        or die "Could not connect to $ftp_site: $!";
 
    $ftp->login($ftp_user, $ftp_password) 
        or die "Could not login to $ftp_site with user $ftp_user: $!";
 
    $ftp->cwd($ftp_dir) 
        or die "Could not change remote working " . 
                 "directory to $ftp_dir on $ftp_site";
 
    @remote_files = $ftp->ls($glob);
 
    foreach my $file (@remote_files) {
        print "Archivo: $file\n";
    }
 
    $ftp->quit();
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Pero, ¿en qué línea se queda atascado?

Coloca print() entre cada instrucción a $ftp, para saber qué es lo que está haciendo.

Si dices que espera un rato largo, podría ser que está intentando averiguar a qué dirección IP corresponde el nombre de 'server'.

Quizás tengas un problema con la resolución de nombres...

por **coltx** » 2011-10-20 09:52 @453

Gracias explorer, pero era que no me habían especificado que era a través de un puerto diferente al 21.

Foro - Perl en Español

Tomar archivos desde un FTP

Tomar archivos desde un FTP

Publicidad

Re: Tomar archivos desde un FTP

Re: Tomar archivos desde un FTP

¿Quién está conectado?