Thread Verzeichnis und Unterverzeichnis auslesen mit Berechtigungen (5 answers)
Opened by TOGL at 2015-02-11 10:58

renee
 2015-02-11 11:37
#179581 #179581
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Um das alles auch mit den Unterverzeichnissen zu machen, kannst Du Rekursion nehmen, oder in einer while-Schleife. Hier nur kurz skizziert:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

my $dir = 'Startdir';

list_dir($dir);

sub list_dir {
    my ($current) = @_;
    opendir my $dirh, $current or die $!;
    while( ... ) {    # wie bei Dir im Programm
        # . und .. ausschließen

        if ( -d "$current/$entry" ) {
            list_dir( "$current/$entry" );
        }
    }
    closedir $dirh;
}


Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

my @dirs = 'Startdir';

while ( @dirs ) {
    my $current = shift @dirs;

    opendir my $dirh, $current or die $!;
    while( ... ) {    # wie bei Dir im Programm
        # . und .. ausschließen

        if ( -d "$current/$entry" ) {
            push @dirs, "$current/$entry";
        }
    }
    closedir $dirh;
}
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Verzeichnis und Unterverzeichnis auslesen mit Berechtigungen