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.
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;
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
