Foro - Perl en Español

por **BigBear** » 2012-04-14 15:39 @694

¿Cómo se puede verificar cuándo es un directorio o un archivo cuando se usa el módulo Net::FTP cuando uso la función dir() del módulo?

> perl -MNet::FTP -E '$ftp = Net::FTP->new("localhost", Debug => 0); $ftp->login("anonymous","-anonymous@"); say join "\n", $ftp->dir()'
drwxr-xr-x    2 0          0                4096 Jan 24 20:25 .
drwxr-xr-x    2 0          0                4096 Jan 24 20:25 ..
lrwxrwxrwx    1 0          0                  26 Jan 24 20:25 joaquin -> /home/explorer/public_html
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

El resultado de dir() es una lista de valores. Si los elementos de la lista comienzan con 'd', entonces son directorios. Si es con 'l', enlaces. Si es con 'c', dispositivos. Y si es con '-', archivos.

por **BigBear** » 2012-04-15 11:41 @529

Ok, ¿cómo tendría que hacer la expresión regular para dividir todos los elementos de la respuesta para tenerlos en varias variables, como $nombre, $permisos, $fecha... para usarlos después?

por **explorer** » 2012-04-15 12:05 @545

Doddy: si haces una pregunta, no te olvides de poner los signos '¿' y '?', porque sino te arriesgas a que nadie te responda.

No necesitas ninguna expresión regular. ¿Te das cuenta de que los campos están separados por espacios en blanco?

Pues con split(" ", $linea) te vale.

por **BigBear** » 2012-04-15 12:14 @552

Ok, gracias, explorer, por la ayuda. El código quedó así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
 
use Net::FTP;
 
my $ftp  = "localhost";
my $user = "doddy";
my $pass = "doddy";
 
if ( my $socket = Net::FTP->new($ftp) ) {
    if ( $socket->login( $user, $pass ) ) {
 
        if ( my @files = $socket->dir() ) {
 
            for my $fil (@files) {
                my @to   = split( " ", $fil );
                my $dir  = @to[0];
                my $file = @to[8];
                if ( $dir =~ /^d/ ) {
                    print "[+] Directory : $file\n";
                }
                else {
                    print "[+] File : $file\n";
                }
            }
        }
    }
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Cualquier sugerencia para mejorar el código aparte de haber tenido que sangrar el código puedes decirla, si quieres.

por **explorer** » 2012-04-15 12:25 @559

Esto es un error que comenten los novatos de Perl (a todos nos ha pasado

)

En las líneas 16 y 17 asignas una lista de valores de un solo elemento, a un escalar:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

                my $dir  = @to[0];
                my $file = @to[8];
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Aparéntemente, no pasa nada. La asignación funciona. Pero... en otros ambientes o contextos, podría dar muchos problemas.

Es mejor escribirlo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

                my $dir  = $to[0];
                my $file = $to[8];
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

o de forma abreviada:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

                my($dir, $file) = @to[0,8];
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y aquí sí que ponemos la '@', porque se trata de asignar una lista de valores a una lista de variables.

Foro - Perl en Español

Verificar archivos en FTP

Verificar archivos en FTP

Publicidad

Re: Verificar archivos en FTP

Re: Verificar archivos en FTP

Re: Verificar archivos en FTP

Re: Verificar archivos en FTP

Re: Verificar archivos en FTP

¿Quién está conectado?