Fehlermeldung bei leerem Verzeichnis (gelöst) (Allgemeines zu Perl)

[thread]17218[/thread]

Fehlermeldung bei leerem Verzeichnis [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+3 replies

Alexander

2012-03-05 22:15

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 )

# 

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

+2 replies
topeg

2012-03-05 22:40
User since
2006-07-10
2611 Artikel
BenutzerIn
-f testet ob es eine Datei ist
-d testet ob es ein Verzeichnis ist
glob() ließ den Inhalt eines Verzeichnisses mit Wildcards aus.

Also kann man kurz schreiben:
Code (perl): (dl )

1 2 3 4

unless(grep{-f $_}glob("$directory/*")) { print "Keine Dateien in $directory\n"; }
wenn du das Verzeichnis schon gelesen hast:
Code (perl): (dl )

1 2 3 4

unless(grep{-f "$directory/$_"}@liste_gesammt) { print "Keine Dateien in $directory\n"; }
Das "\n" bei push @liste_gesammt, "$entry\n"; ist eher schädlich als nützlich. Das wird später als Teil des Dateinamens verstanden.

nebenbei besser als das
Code (perl): (dl )

1 2 3 4

while( my $entry = readdir DIR ) { push @liste_gesammt, $entry; }
ist das
Code (perl): (dl )

@liste_gesammt=readdir(DIR);
oder noch besser:
Code (perl): (dl )

1 2 3

opendir(my $dh, $directory) or die("Error opendir $directory ($!)\n"); my @liste_gesammt=readdir($dh); closedir($dh);
- Alexander
  
  2012-03-07 11:52
  
  User since
  2012-02-21
  25 Artikel
  BenutzerIn
  
  Vielen Dank für die Hilfe, habe beide Tips in mein Programm eingebaut
  
  Danke
  Alexander

View all threads created 2012-03-05 22:15.