Verzeichnis und Unterverzeichnis auslesen mit Berechtigungen (Allgemeines zu Perl)

[thread]19501[/thread]

Verzeichnis und Unterverzeichnis auslesen mit Berechtigungen

Tags: perl5 datei Verzeichnis Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+6 replies

TOGL

2015-02-11 10:58

User since
2015-02-11
2 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,

ich bin absoluter Anfänger in Sachen Perl und hoffe, hier richtig zu sein mit meinem Thread (falls nicht, habt Nachsicht mit mir :p)

Ich habe folgendes Problem:
Mit einem Perl Skript soll ich ein Verzeichnis im Netzlaufwerk durchsuchen, die darin enthaltenen Verzeichnisse (+ deren Unterverzeichnisse) und Dateien ausgeben mit deren Berechtigungseinstellungen (wer darf wie darauf zugreifen).

So, jetzt hab ich damit angefangen, mir die Verzeichnisse und Dateien anzeigen zu lassen. Problem: Ich darf keine Perl Bibliothek nutzen. Sondern nur die Perl.exe und perl58.dll --> somit fallen Funktionen wie stat oder glob weg.

Bisher bin ich wie folgt vorgegangen:

Code (perl): (dl )

#!/usr/local/bin/perl -w

my $Startverzeichnis = 'H:';
my $i = 0;                                            #i entspricht Ordneranzahl
my $j = 0;                                            #j entspricht Dateien

opendir DIR, $Startverzeichnis or die $!;
while( my $entry = readdir DIR )
        {
                if($entry ne "." && $entry ne "..")
                {
                        if(-d $entry)
                        {
                                print "<", $entry,">"," ist ein Verzeichnis\n";
                                $i++;
                        }
                        elsif(-f $entry)
                        {
                                print "<", $entry,">", " ist eine Datei\n";
                                $j++
                        }
                        print $entry,"\n";
                }
        }
print $i, " = Anzahl der Verzeichnisse\n";
print $j, " = Anzahl der Dateien\n";
closedir DIR;

Ich will also zwischen Verzeichnissen und Dateien unterscheiden, um im Nachhinein Unterverzeichnisse wiederrum durchlaufen zu können.
Allerdings funktioniert das Ganze nicht, weil mir angezeigt wird, dass 0 Dateien und 0 Verzeichnisse vorhanden sind.
Mir werden alle Ordner und Dateien angezeigt, aber die if-Schleife zum Unterscheiden von Verzeichnis oder Datei funktioniert nicht.

Kann mir vielleicht jemand helfen?

Vielen Dank im Voraus!

MfG

Edit reneeb: b-Tags -> code-Tags
Last edited: 2015-02-11 11:30:14 +0100 (CET)

Relais

2015-02-11 11:17

User since
2003-08-06
2246 Artikel
ModeratorIn

Verschoben von Datenbanken und Verzeichnisdienste nach Allgemeines zu Perl
Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming
Relais

2015-02-11 11:19

User since
2003-08-06
2246 Artikel
ModeratorIn

stat und glob sind Perl-internals, die können Dir nicht mehr verloren gehen, sobald Du Perl hast.

Du solltest an der Schraube drehen, die Dir Module verbietet. Da ist etwas kaputt und führt zum Scheitern des Unternehmens. Wenn das "nicht geht", wechsle das Unternehmen.

edit: sorry, die Links funktionierten nicht...

edit2:

In wiefern funktioniert der Test auf Dateien und Verzeichnisse nicht? Es gibt ausser -d und -f noch weitere möglichkeiten, vielleicht probiertst Du nach dem elsif noch einen else-Block, der sich beklagt wenn sowohl -d als auch -f negativ waren.

Mit unseren Code/Perl-Schaltflächen kannst Du auch schön formatierten Code hier posten, der wird dann leichter verständlich für die Leser.

edit3:

Dein Skript tut, was es verspricht - zumindest auf meinem Rechner. Es wechselt nicht in Unterverzeichnisse, aber das gibt der gezeigte Code auch nicht her.
Last edited: 2015-02-11 11:29:01 +0100 (CET)
Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming

renee

2015-02-11 11:32

User since
2003-08-04
14371 Artikel
ModeratorIn

Beim Überprüfen musst Du den ganzen Pfad angeben, also

Code (perl): (dl )

#!/usr/local/bin/perl -w

my $Startverzeichnis = 'H:';
my $i = 0;                                            #i entspricht Ordneranzahl
my $j = 0;                                            #j entspricht Dateien

opendir DIR, $Startverzeichnis or die $!;
while( my $entry = readdir DIR )
        {
                if($entry ne "." && $entry ne "..")
                {
                        if(-d "$Startverzeichnis/$entry")
                        {
                                print "<", $entry,">"," ist ein Verzeichnis\n";
                                $i++;
                        }
                        elsif(-f "$Startverzeichnis/$entry")
                        {
                                print "<", $entry,">", " ist eine Datei\n";
                                $j++
                        }
                        print $entry,"\n";
                }
        }
print $i, " = Anzahl der Verzeichnisse\n";
print $j, " = Anzahl der Dateien\n";
closedir DIR;

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/

+2 replies

renee

2015-02-11 11:37

User since
2003-08-04
14371 Artikel
ModeratorIn

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 )

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 )

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;
}

TOGL

2015-02-11 15:02

User since
2015-02-11
2 Artikel
BenutzerIn

Vielen Dank für die schnellen Antworten!
Ich hab das mit dem ganzen Pfad angepasst und es klappt!

Warum ich die Module nicht verwenden darf hat einen einfachen Grund - ich soll mir Perl von Grund auf aneignen.
Klar wäre das Ganze mit den Modulen einfacher/schneller und schlichtweg besser aber gut...
Lange Rede kurzer Sinn: Vielen Dank - hat mir sehr weitergeholfen!

View all threads created 2015-02-11 10:58.