Thread Subroutine & Arrays: Funktion zur Arrayerzeugung (11 answers)
Opened by Kristop8 at 2005-10-17 15:57

Kristop8
 2005-10-17 15:57
#58938 #58938
User since
2005-10-06
22 Artikel
BenutzerIn
[default_avatar]
Hallo Leute,

ich versuche, leider bisher vergebns ein Programm zu basteln welches mir einen Bestimmten Ordner (c:\TEST) durchsucht und den Inhalt (Datein + Ordner) in ein Array speichert.

Falls aber der Ordner (c:\TEST) jedoch unterorner hat, soll das Programm in diese springe und den Inhalt dieses Orners (c:\TEST\LEVEL2 ) auch in ein (anderes) Array ausgeben. Dies soll er solange machen bis er alle Unterordner durchsucht sind.

Meine bisherigen Erungenschaften sind mager:

...
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use strict;
use warnings;
my $dir = "c:/test";
my @array;

GetDirs($dir);

sub GetDirs {
    my ($directory) = @_;
    opendir(DIR, $directory) or die "Error: couldn't open directory '$directory': $\n";
    foreach my $entry (readdir(DIR)) 
    {  
    push (@array, $entry);
    }
    close (DIR);
} #End GetDirs

print "@array";


jetzt komme ich aber nicht so richtig weiter...

Die wichtigste Frage wäre jetzt wie kann man Arrays in sub-funktionen erstellen und diese dann immer mit deuen Namen versehen...

oder besser ausgedrückt wie übersetzt man folgenden Algorithmus in brauchbaren Code:

Code: (dl )
1
2
3
4
5
6
7
8
SUB_STRUCT
  SPRINGE IN ORDNER
  FALLS ORDNER LEER -> ENDE
  SONST ERSTELLE ARRAY
            SCHREIBE ALLE DATEINAMEN UND ORDNERNAMEN IN ARRAY
  STARTE SUB_STRUCT

ENDE SUB


Hoffe Ihr könnt mir etwas Denkhilfe geben.

LG Chris

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

<!--EDIT|pq|1129562621-->

View full thread Subroutine & Arrays: Funktion zur Arrayerzeugung