Thread Fehlermeldung bei leerem Verzeichnis (2 answers)
Opened by Alexander at 2012-03-05 22:15

Alexander
 2012-03-05 22:15
#156639 #156639
User since
2012-02-21
25 Artikel
BenutzerIn
[default_avatar]
Status: Perl Anfänger

Hallo!

Suche eine einfach Methode um eine Fehlermeldung auszugeben wenn ein eingelesenes Verzeichnis leer ist

Habe zwei arrays, eines für Files und eines für Verzeichnisse

Habe es mit if Befehlen versucht war jedoch nicht erfolgreich

Außerdem würde mich noch interessieren ob es eine elegante Methode gibt ein Verzeichnis von einem File zu unterscheiden bzw einzulesen.

Ich habe es mit dem stat Befehl und dem Argument 7 (Größe) gemacht.


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

# 

[thread]while( my $entry = readdir DIR ) {                                                                                      
                push @liste_gesammt, "$entry\n";                                                                
                }
close DIR;
foreach my $zeile (@liste_gesammt) {
        next if ($zeile =~ /\.$/);                                                                                                      
        if ($zeile =~ / /) {
                print "Sorry folder empty!";
        }
        chomp($zeile);
        my $weg = "$directory/$zeile";
        @argumente = stat($weg);
        if ($argumente[7] == 0) {
                push @folder, "$zeile\n";
        } else {
                push @liste, "$zeile\n";
        }}

View full thread Fehlermeldung bei leerem Verzeichnis