Wie lese ich mehrere Verzeichnisse und Lesen Sie den Inhalt von Unterverzeichnissen in Perl?

Ich habe ein Ordner, und in dieser habe ich viele Unterordner. In diesen Unterordnern habe ich viele .html-Dateien gelesen werden. Ich habe geschrieben, die folgenden code zu tun. Es öffnet den übergeordneten Ordner und auch den ersten Unterordner, und es gibt nur eine .html-Datei. Es zeigt Fehler:

NO SUCH FILE OR DIRECTORY

Ich möchte nicht den gesamten code. Änderungen in den bestehenden code wird für mich gut sein.

 use FileHandle;
 opendir PAR_DIR,"D:\\PERL\\perl_programes\\parent_directory";
 while (our $sub_folders = readdir(PAR_DIR))
 {
         next if(-d $sub_folders);

         opendir SUB_DIR,"D:\\PERL\\perl_programes\\parent_directory\\$sub_folders";
         while(our $file = readdir(SUB_DIR))
         {

       next if($file !~ m/\.html/i);
            print_file_names($file);    
         }
         close(FUNC_MODEL1);    
 }
 close(FUNC_MODEL);

  sub print_file_names()
  {
     my $fh1 = FileHandle->new("D:\\PERL\\perl_programes\\parent_directory\\$file")  
               or die "ERROR: $!"; #ERROR HERE 
     print("$file\n");
  }
  • Tipp: lieber mit "meiner" zu "unserer", und führen Sie perl mit der option-w (und "use strict" wenn überhaupt möglich). geholfen hätte zeigen sich diese Fehler früher: mit "meine", aber ohne strenge, es hätte davor gewarnt, dass du "$file" wurde nicht definiert, und mit strenge, es wäre gestorben vor der Ausführung sagt, dass "$file" war nicht deklarierte.
InformationsquelleAutor User1611 | 2009-05-18
  1. 4

    Du bist nicht extrahieren Sie die mitgelieferte $file parameter in der print_file_names() Funktion.

    Sollte es sein:

    sub print_file_names()
{
    my $file = shift;
    ...
}

    Ihre -d test in der äußeren Schleife falsch aussieht auch, BTW. Du sagst next if -d ... was bedeutet, dass Sie überspringen Sie die innere Schleife für die Verzeichnisse, die, wie es scheint das komplette Gegenteil von dem, was Sie benötigen. Der einzige Grund, warum es überhaupt funktioniert, ist, weil Sie testen wollen $file was nur der Dateiname relativ zu dem Pfad, und nicht der volle Pfad-name.

    Beachten Sie auch:

    1. Perl auf Windows kommt wunderbar mit / als Pfad-separator
    2. Stellen Sie Ihre übergeordneten Verzeichnis einmal, und dann leiten Sie andere Wege aus, die
    3. Verwenden opendir($scalar, $path) statt opendir(DIR, $path)

    Achtung: ungetestet-code folgt:

    use strict;
use warnings;
use FileHandle;

my $parent = "D:/PERL/perl_programes/parent_directory";

my ($par_dir, $sub_dir);
opendir($par_dir, $parent);
while (my $sub_folders = readdir($par_dir)) {
    next if ($sub_folders =~ /^..?$/);  # skip . and ..
    my $path = $parent . '/' . $sub_folders;
    next unless (-d $path);   # skip anything that isn't a directory

    opendir($sub_dir, $path);
    while (my $file = readdir($sub_dir)) {
        next unless $file =~ /\.html?$/i;
        my $full_path = $path . '/' . $file;
        print_file_names($full_path);    
    }
    closedir($sub_dir);
}
closedir($par_dir);

sub print_file_names()
{
     my $file = shift;
     my $fh1 = FileHandle->new($file) 
           or die "ERROR: $!"; #ERROR HERE 
     print("$file\n");
 }
    • u r toll.... vielen Dank dude...
    • Für alle diejenigen, die schon downvoted mich nicht mit File::Find - a) ich zeigte ihm, wie zu verwenden opendir etc richtig, und b) er nur für die angegebenen zwei Ebenen der Verzeichnisse mit den Dateien, die alle Wesen bei Stufe 2.
    • auch die bugs waren auch nicht wirklich in der opendir-code, Sie waren in print_file_names() !!
    • Ich von Ihnen positiv bewertet werden Sie für die richtige open () - Zeug, aber auch Hinzugefügt, die mickrigen 2 Funktion Aufrufe, um meine eigene Antwort zu machen, unterstützen tiefenbeschränkung. 😉 . Wenn es etwas gibt, File::Find::Rule kann nicht, ich bin noch zu sehen.
    • Dank der Verwendung von Modulen ist toll, aber manchmal lohnt es sich, Menschen zu zeigen, wie zu tun, die zugrunde liegende Zeug richtig
    InformationsquelleAutor Alnitak
  2. 6

    Ihre geposteten code sieht viel zu kompliziert. Check-out File::Find::Rule und Sie könnte das tun die meisten, dass schweres heben in sehr wenig code.

    use File::Find::Rule;

my $finder = File::Find::Rule->new()->name(qr/\.html?$/i)->start("D:/PERL/perl_programes/parent_directory");

while( my $file = $finder->match()  ){
   print "$file\n";
}

    Ich meine ist das nicht sexy?!

    Einem Benutzer kommentiert, dass Sie vielleicht wollen verwenden Sie nur Tiefe=2 Einträge. 

    use File::Find::Rule;

my $finder = File::Find::Rule->new()->name(qr/\.html?$/i)->mindepth(2)->maxdepth(2)->start("D:/PERL/perl_programes/parent_directory");

while( my $file = $finder->match()  ){
   print "$file\n";
}

    Gilt diese Einschränkung.

    • name("*.html") nicht mit der gleichen Dateien, die seine regex hat. Glücklicherweise, name() akzeptiert regexes sowie Einheiten. Ich habe behoben, der Bedingung zu entsprechen.
    • und diese würde, die Dateien zu finden (sollten Sie existieren) auf die Ebenen 1 und 3+ in der Struktur, im Gegensatz zu seinen Anforderungen...
    • es ist einfach zu set-mindepth und maxdepth für die Suche.
    InformationsquelleAutor Kent Fredric
  3. 3

    Bitte anfangen:

    use strict;
use warnings;

    oben alle Ihre Skripte, wird es Ihnen helfen, Probleme zu vermeiden, wie dies und machen den code sehr viel besser lesbar.

    Lesen Sie mehr über es hier: Perlmonks

    InformationsquelleAutor Zenshai
  4. 3

    Sind Sie gehen zu müssen, ändern Sie den gesamten code, um es robust:

    #!/usr/bin/perl

use strict;
use warnings;

use File::Find;

my $top = $ENV{TEMP};

find( { wanted => \&wanted, no_chdir=> 1 }, $top );

sub wanted {
    return unless -f and /\.html$/i;
    print $_, "\n";
}

__END__
    InformationsquelleAutor Sinan Ünür
  5. 1

    Haben Sie sich überlegt mit

    File::Find

    InformationsquelleAutor Norbert Hartl
  6. 0

    Hier ist eine Methode, die nicht erforderlich ist, mit File::Find:

    Öffnen Sie zunächst das root-Verzeichnis, und speichern Sie alle sub-Ordner-Namen in einem array mit readdir;

    Verwenden Sie anschließend eine foreach-Schleife. Für jeden sub-Ordner, öffnen Sie das neue Verzeichnis durch die Verknüpfung des root-Verzeichnis und einen Namen für den Ordner. Immer noch verwenden, readdir, die zum speichern der Dateinamen in einem array.

    Der Letzte Schritt ist das schreiben des codes für die Bearbeitung der Dateien innerhalb dieser foreach-Schleife.

    Besonderen Dank an meine Lehrerin, die hat mir diese Idee 🙂 Es wirklich gut funktioniert!

    InformationsquelleAutor user5246166
Schreibe einen Kommentar