Foro - Perl en Español

por **smark182** » 2010-04-13 06:20 @305

Hola. Estoy siguiendo uno de los tutoriales de este foro, concretamente el de usando File::Find.

El código que quiero reutilizar es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use File::Find;
 
my $dir = 'C:/Perl/lib/';
 
find(\&imprimir_directorio, $dir);
 
sub imprimir_directorio{
my $elemento = $_;
print "$File::Find::name\n" if -d $elemento;
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Funciona perfecto, pero yo lo que quiero ahora es poder tratar la variable elemento, metiéndola en una array.

La verdad que lo he intentado de todas las formas que se me ha ocurrido y visto por Internet, pero hay algo no hago bien. Está claro que la variable elemento no es una array, pero he intentado convertirla con un split() y no lo consigo.

¿Cómo podría meterla en una array?

Un saludo y gracias de antemano.

smark182

#!/usr/bin/perl
use strict;
use File::Find;
 
my $dir = 'C:/Perl/lib/';
my @array;
 
find(\&imprimir_directorio, $dir);
 
sub imprimir_directorio {
    my $elemento = $_;
    print "$File::Find::name\n" if -d $elemento;
 
    push @array, $elemento;
}
 
print "@array\n";
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Obtener el listado de directorios y archivos

Obtener el listado de directorios y archivos

Publicidad

Re: Obtener el listado de directorios y archivos

¿Quién está conectado?