Foro - Perl en Español

por **DETA** » 2006-04-06 05:19 @263

Hola a todos.

Estoy intentando hacer un programita en Perl que me devuelva el árbol de directorios de cualquier ruta que yo le diga, pero no consigo que me lea la variable que yo le debo introducir.

Por favor, que alguien me indique dónde está el fallo porque no sé qué más cambiar.

MIL GRACIAS...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use File::Find;
print "introduce la ruta del directorio que quieres listar: ";
$dir = <STDIN>;
chomp $dir;
 
#si ejecuto esta orden sólo me dice los archivos de este directorio, pero
#yo quiero que me lea el directorio que yo le introduzco.
#my $dir = 'C:/BIOLOGIA/' ;
 
find( \&imprimir_directorio, $dir );
 
sub imprimir_directorio {
    my $elemento = $_;
    print "$File::Find::name\n"   if -d $elemento;
    print "archivo: $elemento\n:" if -f $elemento;
}
exit;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Si estás en MSDOS o Windows, asegúrate de que estás 'escapando' las barras diagonales inversas (\).

Por ejemplo, para C:\directorio\ deberás poner C:\\directorio\\. La solución que pones C:/directorio/ sí que es correcta, porque Perl se da cuenta de las barras y las cambia automáticamente a barras inversas.

Además, hay algún detalle suelto... prueba:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use File::Find;
use warnings;
use strict;
 
print "Introduce la ruta del directorio que quieres listar: ";
my $dir = <STDIN>;
chomp $dir;
 
find(\&imprimir_directorio, ( $dir )  );
 
sub imprimir_directorio{
    my $elemento = $_;
    print "$File::Find::name\n" if -d $elemento;
    print "archivo: $elemento\n:" if -f $elemento;
}
exit;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **DETA** » 2006-04-06 07:35 @358

Muchíiiiiiiiiiiiiisimas gracias.

Voy a seguir haciendo cosas con ese script y si tengo más dudas os lo preguntaré, aunque espero no tenerlas.

Foro - Perl en Español

Listar directorios

Listar directorios

Publicidad

Re: Listar directorios

¿Quién está conectado?