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

Kristop8

2005-10-07 17:47

User since
2005-10-06
22 Artikel
BenutzerIn
[default_avatar]

Hallo Zusammen, erstmal danke für euren input,

habe jetzt folgendes Skript gebastelt:

Code: (dl )

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

es läuft zwar aber der output ist mir etwas suspekt.
und zwar bei der folgenden Verzeichnisstruktur:
c:\test\test1, c:\test\test2
ist der output(bei obigem Programcode) der folgene:
c:\test
c:\test\test1
c:\test\test1c:\test\test2

woran liegt das das bei der letzen zeile sowohl test1 wie auch test2 ausgegeben wird und wie kann man das umgehen?

Danke schon mal,

Gruß Chris

edit pq: code-tags statt quote-tags\n\n