Filter Dateinamen durch Muster

Brauche ich, um die Suche nach Dateien in einem Verzeichnis, die beginnen mit einem bestimmten Muster, sagen "abc". Ich brauche auch zu beseitigen alle Dateien in dem Ergebnis, dass Ende mit ".xh". Ich bin nicht sicher, wie Sie gehen über es zu tun in Perl.

Ich habe so etwas wie dieses:

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

Ich auch eliminieren müssen alle Dateien aus dem Ergebnis, dass Ende mit ".xh"

Dank, Bi -

InformationsquelleAutor Bi. | 2009-06-11
  1. 7

    versuchen

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

    wo MYDIR ist ein string mit dem Pfad zu Ihrem Verzeichnis.

    • Vielen Dank - das hat funktioniert!
    InformationsquelleAutor Alex Brown
  2. 7

    opendir(VERZEICHNIS, $newpath); my @Dateien = grep(/abc*.*/,readdir(VERZEICHNIS)); #FUNKTIONIERT NICHT

    Du verwechselst ein regex-Muster mit einem glob-Muster.

    #!/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;
    InformationsquelleAutor Sinan Ünür
  3. 3
    opendir(MYDIR, $newpath) or die "$!";
my @files = grep{ !/\.xh$/ && /abc/ } readdir(MYDIR);
close MYDIR;
foreach (@files) { 
   do something
}
    InformationsquelleAutor user118435
  4. 2

    Dem Punkt, dass kevinadc und Sinan Unur verwenden, aber nicht zu erwähnen, ist, dass readdir() gibt eine Liste mit allen Einträgen im Verzeichnis, wenn man in der Listen-Kontext. Dann können Sie jede Liste operator auf, der. Das ist, warum Sie verwenden können:

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

    Also:

    readdir MYDIR

    gibt eine Liste aller Dateien in MYDIR.

    Und:

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

    gibt alle Elemente zurückgegeben, die von readdir MYDIR, die den Kriterien entsprechen gibt es.

    • Ändern, dass die zweite überprüfung /\.xh$/ und Sie werden die Prüfung des rechts der Sache. 🙂
    InformationsquelleAutor Nathan Fellman
  5. -1
    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.
          }
    }
 }

    auch, alle Dateien in einem Verzeichnis zugegriffen werden kann durch tun:

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

    Alternativ können Sie das perl-Modul File::find.

    InformationsquelleAutor user105033
  6. -1

    Anstatt opendir und Filterung readdir (vergessen Sie nicht zu closedir!), Sie könnte stattdessen verwenden 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)

    Wenn Sie kümmern sich nicht um die Beseitigung der $newpath vorangestellt, um die Ergebnisse der glob, loszuwerden, die die map+splitpath.

    • Es gibt keine Notwendigkeit für die Karte oder die splitpath. Entweder es endet in .xh-oder auch nicht. Die zusätzliche Arbeit nicht ändern.
    • Huh? glob("./abc*") gibt ("./abc.txt", "./abc.xh"); wie Sie sonst noch erwarten zu überkreuzen, dass sich"abc.txt")?
    InformationsquelleAutor ephemient
Schreibe einen Kommentar