Foro - Perl en Español

por **mariomb19** » 2012-05-02 13:11 @591

Buenas, tengo un problema porque los resultados no me salen en letras y números.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use Net::FTP;
 
$ftp = Net::FTP->new( "xxx.xxx.xxx.xxx", Debug => 0 )
    or die "Cannot connect to some.host.name: $@";
 
$ftp->login( "xxxxxx", 'xxxxxx' )
    or die "Cannot login ", $ftp->message;
 
$ftp->get( "sapfi_rechazo_01032011_HCM_1724.txt.Z", "/home/rocco/sapfi_rechazo_01032011_HCM_1724.txt" )
    or die "get failed ", $ftp->message;
print "successful\n";
 
$ftp->quit;
 
open( MIFICH, "/home/rocco/sapfi_rechazo_01032011_HCM_1724.txt" ) || die "lo siento, no puedo encontrar fichero.txt\n";
 
my $archivo = "sapfi_rechazo_";
 
if ( $archivo =~ m/sapfi_rechazo_/ ) {
 
    while (<MIFICH>) {
 
        $cadena = "$_";
 
    }
 
    @cadena = split( /\|\s*/,, $cadena );
    print "\n";
    print $cadena[0];
 
}
else {
 
    print "enviar correo";
}
 
close(MIFICH);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

successful

��1�Pa2�       1`Ȁ�0`$�X#��"F�h������GɌ'g�8IR�

Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Buenas. Actualmente estoy descargando archivo por archivo. Quisiera descargar todo el directorio, para descargar todos los txt. ¿Cómo lo hago? Gracias...

#!/usr/bin/perl -w

use Net::FTP;

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

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

$ftp->get("fi_sir_20100624_20100701.txt","/home/rocco/fi_sir_20100624_20100701.txt")
or die "get failed ", $ftp->message;
print "successful\n";

$ftp->quit;

por **explorer** » 2012-05-03 09:28 @436

Una forma sería hacer un listado de todos los archivos .txt posibles en el directorio, y luego hacer un bucle por todos ellos...

Pero otra forma más cómoda es la de usar el módulo Net::FTP::Recursive o Net::FTP::Recursive::AutoReconnect (que es lo mismo, pero con la opción de reconexión, en caso de corte).

por **mariomb19** » 2012-05-03 15:47 @699

Buenas de nuevo, amigos. Tengo un problema para finalizar este script. Toda la información se baja bien pero no logro ponerlos en la carpeta que quiero. Siempre se guardan en la carpeta personal. Ayuda, por favor.

¿Cómo hago para que se guarden donde quiero?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use Net::FTP::Recursive::AutoReconnect;
 
my $host    = 'xxx.xxx.xxx.xxx';
my $timeout = '10';
 
my $user = 'xxxxxxx';
my $pass = 'xxxxxxx';
my $ftp  = Net::FTP::Recursive::AutoReconnect->new( $host, Timeout => $timeout, Debug => 0 )
    or warn "$user: Cannot connect to $host: $@";
$ftp->login( $user, $pass ) or warn "$user $pass: Cannot login ", $ftp->message;
$ftp->cwd("/") or warn "$user: Cannot change working directory ", $ftp->message;
$ftp->rget( "/", "/home/rocco/dir2/" );
my $writefh;
my $fh;
open( $fh, ">", \$writefh );
binmode($fh);
print $ftp->rdir( FilenameOnly => 1, Filehandle => $fh, PrintType => 1 );
$ftp->quit;
close($fh);
print $writefh;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-05-03 16:09 @714

Los argumentos al método rget() no son los mismos que para el get().

De hecho, no necesitas ningún argumento, porque lo que hace es bajarse todos los archivos del servidor remoto al directorio local.

Para configurar el directorio local, supongo que valdrá con ejecutar una sentencia chdir() de Perl. Más información: perldoc -f chdir .

Si quieres que rget() se baje sólo los archivos .txt, debes incluir un argumento ParseSub que indique una función definida por ti, donde filtrarás los nombres de los archivos que realmente quieres que baje. Para saber cómo construir esa función, puedes mirar la que el módulo Net::FTP::Recursive::AutoReconnect usa por defecto: parse_files(), dentro del código del módulo.

por **mariomb19** » 2012-05-08 09:17 @429

Buenas. Primero que nada disculpen la molestia, pero tengo una duda ¿cómo se construye la función rget() con parsesub() bien? Esta fue la que hice y no me sale. Quiero descargar solo los txt que indique.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 #!/usr/bin/perl -w
 
 use Net::FTP::Recursive;
 use File::chdir;
 
 
    $ftp = Net::FTP::Recursive->new("xxx.xxx.xxx", Debug => 0);
    $ftp->login("xxxxxx",'xxxxxx');
    $CWD = "/";
              {
        local $CWD = "/home/rocco/dir2/"; 
                  $fi_sir= "/fi_sir_*_*.txt && sapfi_rechazo_*_HCM_*.txt";
                  my $regext= "$fi_sir";
                  if($fi_sir =~ m/$fi_sir/){
                  $ftp->rget(ParseSub => $regext)
                  }
                  
              }
    $ftp->quit;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-05-08 11:49 @534

Ya te dije que usar este módulo es algo complicado...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use Net::FTP::Recursive;
 
my $ftp = Net::FTP::Recursive->new(          # conexión
    'servidor',
    Debug => 1,                              # ver qué está haciendo
);
 
$ftp->login('usuario', 'clave');             # registro
 
chdir '/home/explorer/Documentos/temp/kk';   # nos colocamos en el directorio donde dejaremos los archivos
 
$ftp->cwd('/home/rocco/dir2/');              # directorio en el servidor remoto
 
$ftp->rget(ParseSub => \&filtrar_archivos);  # bajar archivos
 
 
sub filtrar_archivos {                       # en @_ tenemos el listado (ls -l) de archivos a bajar
    my @a_descargar;
 
    for my $linea_listado (@_) {                        # para todas las líneas del listado
        # saltamos a la
        # siguiente línea si no corresponde con el patrón del archivo que buscamos
        next if $linea_listado !~ / ((fi_sir|sapfi_rechazo_.*?_HCM_).*?\.txt)/;
 
        my $archivo = $1;                    # nos quedamos solo con el nombre del archivo, capturado antes
 
        my $file = Net::FTP::Recursive::File->new(
            plainfile => 1,                             # archivo normal
            filename  => $archivo,                      # con este nombre
        );
 
        push @a_descargar, $file;
    }
 
    return @a_descargar;                     # devolvemos los archivos a bajar
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El verdadero trabajo es el del patrón de las expresiones regulares.

Es: / ((fi_sir|sapfi_rechazo_.*?_HCM_).*?\.txt)/, que quiere decir: «busca un carácter de espacio en blanco, y lo que sigue debe coincidir con 'fi_sir' o con 'sapfi_rechazo_', seguido de unos caracteres más, inmediatamente seguidos por '.txt'. Con los paréntesis de captura nos quedamos con el nombre del archivo y lo guardamos en $1».

Esto se puede simplificar mucho si sabemos algo más de las condiciones iniciales.

Por ejemplo, si sabemos que los únicos archivos que nos interesan dentro del directorio destino acaban en '.txt', entonces la línea queda así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        next if $linea_listado !~ /(\S+\.txt)/;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En este caso, usamos '\S+' para indicar «cualquier carácter que no es un carácter de espacio en blanco», así que estamos capturando cualquier archivo que termine en '.txt'.

por **mariomb19** » 2012-05-10 15:17 @678

Buenas tardes, amigo. Tengo un problema. Me sirvió en parte el código, pero el problema es que me sale este error ya lo he intentado de solucionar de varias formas, pero no he podido. Esto es lo que sale:

Net::FTP::Recursive=GLOB(0xa1b0220)>>> PWD
Net::FTP::Recursive=GLOB(0xa1b0220)<<< 257 "/" is current directory.
Retrieving fi_sir_20100624_20100701.txt.
Net::FTP::Recursive=GLOB(0xa1b0220)>>> PORT 161,196,16,23,132,21
Net::FTP::Recursive=GLOB(0xa1b0220)<<< 200 PORT command successful.
Net::FTP::Recursive=GLOB(0xa1b0220)>>> RETR fi_sir_20100624_20100701.txt
Net::FTP::Recursive=GLOB(0xa1b0220)<<< 550 fi_sir_20100624_20100701.txt: No such file or directory.
Retrieving fi_sir_20100625_20100702.txt.
Net::FTP::Recursive=GLOB(0xa1b0220)>>> PORT 161,196,16,23,138,220
Net::FTP::Recursive=GLOB(0xa1b0220)<<< 200 PORT command successful.
Net::FTP::Recursive=GLOB(0xa1b0220)>>> RETR fi_sir_20100625_20100702.txt
Net::FTP::Recursive=GLOB(0xa1b0220)<<< 550 fi_sir_20100625_20100702.txt: No such file or directory.
Retrieving fi_sir_20101216_20101223.txt.
Net::FTP::Recursive=GLOB(0xa1b0220)>>> PORT 161,196,16,23,236,250
Net::FTP::Recursive=GLOB(0xa1b0220)<<< 200 PORT command successful.
Net::FTP::Recursive=GLOB(0xa1b0220)>>> RETR fi_sir_20101216_20101223.txt
Net::FTP::Recursive=GLOB(0xa1b0220)<<< 150 Opening ASCII mode data connection for fi_sir_20101216_20101223.txt (0 bytes).
Net::FTP::Recursive=GLOB(0xa1b0220)<<< 226 Transfer complete.
Retrieving fi_sir_20101217_20101224.txt.
Net::FTP::Recursive=GLOB(0xa1b0220)>>> PORT 161,196,16,23,212,23
Net::FTP::Recursive=GLOB(0xa1b0220)<<< 200 PORT command successful.
Net::FTP::Recursive=GLOB(0xa1b0220)>>> RETR fi_sir_20101217_20101224.txt
Net::FTP::Recursive=GLOB(0xa1b0220)<<< 150 Opening ASCII mode data connection for fi_sir_20101217_20101224.txt (0 bytes).
Net::FTP::Recursive=GLOB(0xa1b0220)<<< 226 Transfer complete.
Retrieving fi_sir_20120219_20120226.txt.
Net::FTP::Recursive=GLOB(0xa1b0220)>>> PORT 161,196,16,23,220,199
Net::FTP::Recursive=GLOB(0xa1b0220): Timeout at /home/rocco/Documentos/proyecto/script_fi.pl line 19.
Retrieving fi_sir_20120220_20120227.txt.
Net::FTP::Recursive=GLOB(0xa1b0220)>>> PORT 161,196,16,23,220,199
Net::FTP::Recursive: Unexpected EOF on command channel at /home/rocco/Documentos/proyecto/script_fi.pl line 19.
Retrieving fi_sir_20120221_20120228.txt.
Retrieving fi_sir_20120222_20120229.txt.
Retrieving fi_sir_20120223_20120301.txt.
Retrieving fi_sir_20120224_20120302.txt.
Retrieving fi_sir_20120225_20120303.txt.

Me tarda mucho y no baja todo los archivos.

por **explorer** » 2012-05-10 17:05 @753

Los mensajes tipo
550 fi_sir_20100624_20100701.txt: No such file or directory.

quiere decir que ese archivo no está en el directorio remoto (veo que lo tienes en "/").

¿No será que está en un subdirectorio? Entonces hay que ampliar el código para que el módulo pueda entrar en esos directorios. Como te he indicado antes, en el código de Net::FTP::Recursive::AutoReconnect está el ejemplo.

El error
Timeout at /home/rocco/Documentos/proyecto/script_fi.pl line 19.

dice que el servidor FTP no responde a tu petición.

Foro - Perl en Español

Bajar ficheros con Net::FTP

Bajar ficheros con Net::FTP

Publicidad

Re: Bajar ficheros con Net::FTP

Descargar un directorio

Re: Descargar un directorio

Guardar archivos en cualquier carpeta

Re: Guardar archivos en cualquier carpeta

rget (parsesub => &yoursub)

Re: rget (parsesub => &yoursub)

Re: Bajar ficheros con Net::FTP

Re: Bajar ficheros con Net::FTP

¿Quién está conectado?