Foro - Perl en Español

por **Skull118** » 2013-11-25 15:02 @668

Buenas tardes, nuevamente acudo a ustedes, compañeros, debido a que presento el siguiente inconveniente.

Desarrollé el siguiente script con un par de ejemplos, y todo bien; el único problema es que al descargar los archivos ".zip" al intentar abrir cualquier archivo (con winrar o winzip), me dice "Unexpected end of archive", y descargando el mismo archivo pero con filezilla no me da ningún inconveniente, y ambos son del mismo tamaño y extensión.

Aquí el script que utilizo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Net::FTP;
$ftp = Net::FTP->new("misitio", Debug => 0) or die "Imposible conectar al servidor misitio razon: $@";
$ftp->login("usuario",'password') or die "No se puede loguear ", $ftp->message;
open(A,"OBTENER.TXT"); #leo los archivos que necesito (esto me lo dá otro programa, solo contiene la fecha en formato YYYYMMDD=20131125)
my @L=<A>;
open(C, ">log_archivos.txt");
foreach(@L){
        $_=~s/\n//g;
        my $path="/directorio_donde_estan_los_archivos/$_";
        $ftp->cwd("$path") or die "Imposible cambiar al directorio", $ftp->message;     
        @filelist = $ftp->ls("*.zip");
        foreach(@filelist){
                print(C "$path/$_\n");
                $ftp->get("$_");
        }
}
$ftp->quit;
close A;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Reitero, el script funciona para "bajar" los archivos, pero por alguna razón, me dan error al intentar abrirlos.

Aprovechando, ¿cómo puedo descomprimir los archivos .zip con Perl? Gracias de antemano.

 
use Net::FTP;
$ftp = Net::FTP->new("misitio", Debug => 0
                                binary=> 1) or die "Imposible conectar al servidor misitio razon: $@";
$ftp->login("usuario",'password') or die "No se puede loguear ", $ftp->message;
open(A,"OBTENER.TXT"); #leo los archivos que necesito (esto me lo dá otro programa, solo contiene la fecha en formato YYYYMMDD=20131125)
my @L=<A>;
open(C, ">log_archivos.txt");
foreach(@L){
        $_=~s/\n//g;
        my $path="/directorio_donde_estan_los_archivos/$_";
        $ftp->cwd("$path") or die "Imposible cambiar al directorio", $ftp->message;    
        @filelist = $ftp->ls("*.zip");
        foreach(@filelist){
                print(C "$path/$_\n");
                $ftp->get("$_");
        }
}
$ftp->quit;
close A;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo probé tambien así y no deja de bajar los archivos sin error.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 
use Net::FTP;
$ftp = Net::FTP->new("misitio", Debug => 0) or die "Imposible conectar al servidor misitio razon: $@";
$ftp->binary();
$ftp->login("usuario",'password') or die "No se puede loguear ", $ftp->message;
open(A,"OBTENER.TXT"); #leo los archivos que necesito (esto me lo dá otro programa, solo contiene la fecha en formato YYYYMMDD=20131125)
my @L=<A>;
open(C, ">log_archivos.txt");
foreach(@L){
        $_=~s/\n//g;
        my $path="/directorio_donde_estan_los_archivos/$_";
        $ftp->cwd("$path") or die "Imposible cambiar al directorio", $ftp->message;    
        @filelist = $ftp->ls("*.zip");
        foreach(@filelist){
                print(C "$path/$_\n");
                $ftp->get("$_");
        }
}
$ftp->quit;
close A;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Skull118** » 2013-11-25 16:36 @733

Ya lo solucioné, era como me habías indicado, explorer; aquí está el código final:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Net::FTP;
$ftp = Net::FTP->new( "misitio", Debug => 0 ) or die "Imposible conectar al servidor misitio razon: $@";
$ftp->login( "usuario", 'password' ) or die "No se puede loguear ", $ftp->message;
open( A, "OBTENER.TXT" ); # leo los archivos que necesito (esto me lo da otro programa, solo contiene la fecha en formato YYYYMMDD=20131125)
my @L = <A>;
open( C, ">log_archivos.txt" );
foreach (@L) {
    $_ =~ s/\n//g;
    my $path = "/directorio_donde_estan_los_archivos/$_";
    $ftp->cwd("$path") or die "Imposible cambiar al directorio", $ftp->message;
    @filelist = $ftp->ls("*.zip");
    foreach (@filelist) {
        print( C "$path/$_\n" );
        $ftp->binary();
        $ftp->get("$_");
    }
}
$ftp->quit;
close A;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-11-26 02:54 @162

Te vale con hacer el binary() una sola vez, después de la conexión.

Esta es mi versión:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.16;
use Net::FTP;
use autodie;
 
my $sitio = 'misitio';
my $ftp   = Net::FTP->new( $stio, Debug => 0 )  or die "Imposible conectar al servidor $sitio: $@\n";
 
$ftp->login('usuario', 'password')              or die "No se puede entrar: ", $ftp->message;
$ftp->binary();
 
open my $LOG,     '>', 'log_archivos.txt';
 
open my $ENTRADA, '<', 'OBTENER.TXT';           # formato YYYYMMDD=20131125
while (<$ENTRADA>) {
    chomp;
 
    my $path = "/directorio_donde_están_los_archivos/$_";
 
    $ftp->cwd($path)                            or die "Imposible cambiar al directorio $path: ", $ftp->message;
 
    for my $file ($ftp->ls('*.zip')) {
        $ftp->get($file)                        or die "Error al obtener $file: ", $ftp->message;
        say $LOG "$path/$file";
    }
}
close   $ENTRADA;
close   $LOG;
 
$ftp->quit;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Error al descargar con archivos FTP con Perl

Error al descargar con archivos FTP con Perl

Publicidad

Re: Error al descargar con archivos FTP con Perl

Re: Error al descargar con archivos FTP con Perl

Re: Error al descargar con archivos FTP con Perl

Re: Error al descargar con archivos FTP con Perl

¿Quién está conectado?