Filtrer les noms de fichiers par motif

Question

J'ai besoin de rechercher des fichiers dans un répertoire qui commence par un motif particulier, disons "abc". J'ai aussi besoin d'éliminer tous les fichiers dans le résultat qui se terminent par ".xh". Je ne suis pas sûr de savoir comment le faire en Perl.

J'ai quelque chose comme ceci:

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

Je dois aussi d'éliminer tous les fichiers de résultat qui se terminent par "xH"

Merci, Bi

Answer 1

essayer

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

où MYDIR est une chaîne contenant le chemin de votre répertoire.

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

aussi, tous les les fichiers dans un répertoire sont accessibles en faisant:

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

ALternativement, vous pouvez utiliser le module perl File :: find.

Answer 3

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

Vous confondez un motif regex avec un motif glob.

#!/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

Le point kevinadc et Sinan Unur utilisent, mais pas de mentionner que readdir() renvoie une liste de toutes les entrées dans le répertoire lorsque appelé dans un contexte de liste. Vous pouvez ensuite utiliser n'importe quel opérateur de liste sur cela. Voilà pourquoi vous pouvez utiliser:

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

Alors:

readdir MYDIR 

retourne une liste de tous les fichiers MYDIR.

Et:

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

renvoie tous les éléments retournés par readdir MYDIR qui correspondent aux critères là.

Answer 6

Au lieu d'utiliser opendir et le filtrage readdir (ne pas oublier de closedir!), Vous pouvez utiliser à la place 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 vous ne se soucient pas de l'élimination de la $newpath préfixé aux résultats de glob , se débarrasser de la map+splitpath.