Namen von Verzeichnissen auslesen - #58561 (Allgemeines zu Perl)

sesth

2005-10-07 18:19

User since
2005-02-01
181 Artikel
BenutzerIn
[default_avatar]

Zunächst solltest Du mal mit "use strict" arbeiten und die Variablen deklarieren - das hilft, Fehler zu vermeiden. Ich hab den Code mal etwas angepasst:

Code (perl): (dl )

use File::Find;
use strict;

my @ORDNER;
my $dir = "c:/test";
my $seen = 0;
find(\&edits, $dir);
print join("$/", @ORDNER);
sub edits() {
             $seen=$seen+1;
               
  if (-d) {
               
   my $ordner = $File::Find::name;
               
         push(@ORDNER, $ordner);
               
          } #end if
            } #end sub

Der Aufruf Deiner Funktion erfolgt innerhalb von find. Deshalb macht das Initialisieren von $seen auf 0 nur vor dem Aufruf Sinn. Der print-Befehl gibt das gesamte Array aus. Deshalb wurde bei Dir immer alles hintereinander ausgegeben.\n\n

Gruß
Thomas