Página 1 de 1

Duda sobre exclusión de fichero en array

NotaPublicado: 2006-10-26 02:10 @132
por fgalves
¡Hola a todos!

En el siguiente código, guardo en dos arrays (@xmlreports y @txtreports) la lista de ficheros .xml y .txt respectivamente que se encuentran en el directorio de trabajo.


Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
opendir(DIR, $workingDir) || die "$0: ERROR: can't opendir $workingDir: $!";
my @xmlreports = grep { /\.xml$/ && -f "$workingDir/$_" } readdir(DIR);
closedir DIR;
opendir(DIR, $workingDir) || die "$0: ERROR: can't opendir $workingDir: $!";
my @txtreports = grep { /\.txt$/ && -f "$workingDir/$_" } readdir(DIR);
closedir DIR;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Mi duda es la siguiente:
De hecho, en esa lista quiero guardar los ficheros .xml y .txt, salvo el siguiente:
$pepito.txt y $pepito.xml

¿Cómo excluir dicho fichero de las listas anteriores modificando el código anterior?

¡¡¡Muchas gracias!!!!
Felipe

NotaPublicado: 2006-10-26 05:20 @264
por explorer
Pues ampliando el grep...

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
my @xmlreports = grep { !/^$pepito/ and /\.xml$/ and -f "$workingDir/$_" } readdir(DIR);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4