Foro - Perl en Español

por **explorer** » 2012-11-19 10:21 @473

Si sabes que es un directorio (-d) entonces lo imprimes tal cual, sin el margen de dos espacios. Y si no, se trata de un archivo normal, así que lo imprimes con el margen de dos espacios.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    if (-d $fpath) {
        print "$fpath\n";
    }
    else {
        $fname = basename($fpath);
        if (/\.html$/) {
            print "  $fname\n";
        }
    }
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

use File::Find;
use File::Basename;
@ARGV = qw(firewall routers) if not @ARGV;
 
foreach $tipo (@ARGV) {
    print "<tr><td>$tipo</td></tr>\n";
 
    find( \&doit, $tipo );
 
    sub doit {
        $fpath = $File::Find::name;
        $fname = basename($fpath);
        if (m/(.*\.html)/) {
            print "<tr><td><a href=\"http://localhost/$fpath\"><font color=#F3C035>$fname</font></a></td></tr>";
        }
    }
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-11-19 12:35 @566

Bueno, yo usaría CGI para generar el código HTML, y sacaría la función doit() de dentro del bucle.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use CGI ':standard';
use File::Find;
use File::Basename;
use feature 'say';
 
@ARGV = qw(firewall routers) if not @ARGV;
 
for my $tipo (@ARGV) {
    say Tr(td($tipo));
     
    find( \&doit, $tipo );
}
 
sub doit {
    my $fpath = $File::Find::name;
    my $fname = basename($fpath);
 
    if (m/\.html$/) {
        say Tr(td(
                  a({-href => "http://localhost/$fpath"},
                     qq(<font color="#F3C035">$fname</font>
                  )
        ));
    }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Pero yo no usaría la etiqueta <font>, sino un estilo CSS. Y al código le falta todo el preámbulo para dibujar toda la estructura de un documento HTML (no sabemos si eso es lo que quieres al final).

Hay otros módulos para generar HTML, desde luego.

por **situ** » 2012-11-19 14:00 @625

¡Muchas gracias! Armé todo el informe en HTML pero a mano =(

Foro - Perl en Español

Consulta sobre listado de directorios

Re: Consulta sobre listado de directorios

Publicidad

Re: Consulta sobre listado de directorios

Re: Consulta sobre listado de directorios

Re: Consulta sobre listado de directorios

¿Quién está conectado?