Verzeichnis traversieren (Allgemeines zu Perl)

[thread]10565[/thread]

Verzeichnis traversieren

Leser: 1

theresa

2007-10-11 23:48

User since
2007-07-17
90 Artikel
BenutzerIn
[default_avatar]

Hallo,
habe ein kleines Problem mit einer Rekursion.
Der Kode ist vereinfacht, hab den sinnvollen Teil gelöscht da der keine Probleme verursacht...

Der Startverzeichnis soll traversiert werden bis zu einer bestimmten Tiefe.
Es gibt einige Skripte im Internet dafür, würde aber gerne wissen was hier falsch ist...

Problem ist dass nur der erste Pfad bis tiefe==0 gefolgt wird, danach bricht das Programm ab.

Wobei doch in @unterVerz die Liste der Unterverzeichnisse ist, womit es weitermachen sollte... wieso kommt es denn nicht auf sie zurück?

Im voraus vielen Dank.

Code (perl): (dl )

my $startVerzeichnis = "/home1";
my $tiefe = 3;

rek($startVerzeichnis, $tiefe);

sub rek {
        
        my $verzeichnis = shift;
        my $tiefe = shift;

        if($tiefe==0){
                print "\ntiefe==0!!";
                return;
        }
        
        opendir(VERZEICHNIS, $verzeichnis);
        @unterVerz = readdir(VERZEICHNIS); 
        foreach(@unterVerz){
                if(!($_ eq ".") && !($_ eq "..")){
                        
                        #Pfad erstellen mit Unterverzeichnis/Datei ergänzt...
                        my $verzeichnisNeu = $verzeichnis . "/" . $_;   
                        
                        #Falls Verzeichnis
                        if(-d $verzeichnisNeu){
                                rek($verzeichnisNeu, $tiefe-1);
                        }
                }
        }
        #close VERZEICHNIS;
}

GwenDragon

2007-10-11 23:51

User since
2005-01-17
14784 Artikel
Admin1

Mal kurz aus dem Bauch raus gedacht, denke ich:

1. @unterverzeichnis ist nicht lokal im der sub!

du musst schon

Code: (dl )

my @unterVerz = readdir(VERZEICHNIS);

schreiben.

2. ist es auch sinnvoll das Filehandle zu lokalisieren.
Also:

Code: (dl )

1
2
3

my $vh;
opendir($vh, $verzeichnis);
my @unterVerz = readdir($vh);

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

2007-10-12 01:26

User since
2003-08-04
12208 Artikel
Admin1

GwenDragon+2007-10-11 21:51:48--
Code: (dl )
1
2
my $vh;
opendir($vh, $verzeichnis);

oder

Code (perl): (dl )

1
2
3

opendir(my $vh, $verzeichnis);
# bzw.
opendir(my $vh, $verzeichnis) or die $!;

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

theresa

2007-10-12 15:20