Thread Alle Dateien eines Verzeichnis: Rekursion == Aggression ? (7 answers)
Opened by subsys at 2005-04-21 12:19

subsys
 2005-04-21 12:19
#54080 #54080
User since
2005-03-08
27 Artikel
BenutzerIn
[default_avatar]
Erstmal sorry, dass ich euch mit sowas einfachen nerve:
Und zwar möchte ich aus einem Ordner samt Unterordnern alle Dateien bearbeiten. Egal welcher Endung o.ä. :

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

sub entpacken
{
 my $datei;
 my $check;
 my $verzeichnis = $_[0];

 opendir(DIR, $verzeichnis);
 while($datei = readdir(DIR))
 {
  if ($datei ne "." && $datei ne "..")
  {
   $check = $verzeichnis .  $datei;
   if (-d $check)
   {
    $check = $check . "\/";
    entpacken($check);
   }
   else
   {
    print $datei . "\n";
    tue_was_mit_datei($datei);   
   }
  }
 }
 closedir(DIR);
}


Leider bricht die Funktion immer nach den ersten 2 Ordnern ab.
Ich nehme mal an, dass die Methode zu umständlich ist. Aber wie geht es einfacher bzw. wie funktioniert es überhaupt ?

View full thread Alle Dateien eines Verzeichnis: Rekursion == Aggression ?