Filtrar nombres de archivos por patrón

Question

Necesito buscar archivos en un directorio que comience con un patrón particular, diga "abc". También necesito eliminar todos los archivos en el resultado que terminan con ".xh". No estoy seguro de cómo hacerlo en Perl.

tengo algo como esto:

opendir(MYDIR, $newpath); 
my @files = grep(/abc\*.*/,readdir(MYDIR)); # DOES NOT WORK 

También necesito para eliminar todos los archivos de resultado que terminan con ".xh"

Gracias, Bi

Answer 1

tratar

@files = grep {!/\.xh$/} <$MYDIR/abc*>; 

donde MYDIR es una cadena que contiene la ruta del directorio.

Answer 2

foreach $file (@files) 
{ 
    my $fileN = $1 if $file =~ /([^\/]+)$/; 

    if ($fileN =~ /\.xh$/) 
    { 
      unlink $file; 
      next; 
    } 
    if ($fileN =~ /^abc/) 
    { 
      open(FILE, "<$file"); 
      while(<FILE>) 
      { 
      # read through file. 
      } 
    } 
} 

también, todo Se puede acceder a los archivos en un directorio haciendo:

$DIR = "/somedir/somepath"; 
foreach $file (<$DIR/*>) 
{ 
    # apply file checks here like above. 
} 

Alternativamente, puede usar el módulo Perl File :: find.

Answer 3

opendir (MYDIR, $ newpath); my @files = grep (/ abc *. * /, readdir (MYDIR)); #NO FUNCIONA

Está confundiendo un patrón de expresiones regulares con un patrón global.

#!/usr/bin/perl 

use strict; 
use warnings; 

opendir my $dir_h, '.' 
    or die "Cannot open directory: $!"; 

my @files = grep { /abc/ and not /\.xh$/ } readdir $dir_h; 

closedir $dir_h; 

print "$_\n" for @files; 

Answer 4

opendir(MYDIR, $newpath) or die "$!"; 
my @files = grep{ !/\.xh$/ && /abc/ } readdir(MYDIR); 
close MYDIR; 
foreach (@files) { 
    do something 
} 

Answer 5

El punto que kevinadc y Sinan Unur están utilizando, pero no mencionar es que readdir() devuelve una lista de todas las entradas en el directorio cuando se le llama en el contexto de la lista. A continuación, puede utilizar cualquier operador de lista en eso. Es por eso que puede utilizar:

my @files = grep (/abc/ && !/\.xh$/), readdir MYDIR; 

Así:

readdir MYDIR 

devuelve una lista de todos los archivos de MYDIR.

Y:

grep (/abc/ && !/\.xh$/) 

devuelve todos los elementos devueltos por readdir MYDIR que coincidan con los criterios allí.

Answer 6

En lugar de utilizar opendir y filtrado readdir (no se olvide de closedir!), En su lugar podría usar glob:

use File::Spec::Functions qw(catfile splitpath); 

my @files = 
    grep !/^\.xh$/,    # filter out names ending in ".xh" 
    map +(splitpath $_)[-1],  # filename only 
    glob       # perform shell-like glob expansion 
     catfile $newpath, 'abc*'; # "$newpath/abc*" (or \ or :, depending on OS) 

Si no se preocupan por la eliminación de la $newpath prefijado a los resultados de glob , deshacerse de la map+splitpath.