Liste aller Verzeichnisse (solved) (Perl/CGI)

[thread]18883[/thread]

Liste aller Verzeichnisse [solved]

Tags: perl5 CGI Similar Threads

Readers: 16

Articles: hide open all | hide show old branches

+7 replies
chmod777

2014-02-02 15:35
User since
2009-09-14
82 articles
BenutzerIn
Hi!

Wie bekomm ich eine Liste aller Verzeichnisse in ein array? Meine Versuche mit
Code: (dl )

1 2 3 4

my $qverz ="/var/www/"; opendir(DIR, $qverz) || die "$qverz: $!"; my @Dateien = readdir(DIR); closedir(DIR);
enden damit, dass auch Dateien eingelesen werden. Es sollten aber NUR die Verzeichnisse eingelesen werden.

danke
- +6 replies
- GwenDragon
  
  2014-02-02 15:52
  User since
  2005-01-17
  14823 articles
  Admin1
  Einfach:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my @Dateien = grep { # filtere Liste aller -d # Dateien mit Dateiflag Directory } readdir(DIR); # aus Verzeichnisinhalt
  
  Siehe auch http://perldoc.perl.org/functions/-X.html
  Last edited: 2014-02-02 15:53:31 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - chmod777
    
    2014-02-02 16:58
    User since
    2009-09-14
    82 articles
    BenutzerIn
    
    das bringt leider nicht das gewünschte ergebnis - zumindest bekomm ich es nicht hin:
    
    ich hab's auch mit
    
    Code: (dl )
    
    my @verzeichnisse= grep (/-d/,@eintraege);
    
    versucht ...
    
    hast du den vollständigen code?
    - GwenDragon
      
      2014-02-02 17:01
      
      User since
      2005-01-17
      14823 articles
      Admin1
      
      Mein Posting bezieht sich auf die Zeile 3 deines Codes.
      Wieso soll das nicht klappen?
      
      //EDIT:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      my $qverz ="/var/www/"; opendir(DIR, $qverz) || die "$qverz: $!"; my @Dateien = grep { # filtere Liste aller -d # Dateien mit Dateiflag Directory } readdir(DIR); # aus Verzeichnisinhalt closedir(DIR);
      
      Last edited: 2014-02-02 17:03:57 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - Raubtier
      
      2014-02-02 17:05
      
      User since
      2012-05-04
      1081 articles
      BenutzerIn
      
      Gwen hat nicht /-d/ geschrieben, sondern -d. Das ist ein Unterschied - erstes ist ein regulärer Ausdruck, der nur alle Dateien mit -d im Namen sucht!
      
      Du solltest noch beachten, dass readdir dir die Dateien gibt, du aber mit -d den vollen Pfad brauchst (außer wenn du eh in dem von readdir auszulesendem Verzeichnis bist). Also -d "$qverz/$_"
      
      Und noch ein Rat:
      opendir kann auch mit Variablen umgehen, keine Notwendigkeit, hier die alten Handles ohne $ zu nutzen!
      Also statt opendir(DIR, $dir); readdir(DIR); closedir(DIR) einfach opendir($dir_handle, $dir); readdir($dir_handle); benutzen.
      Last edited: 2014-02-02 17:20:46 +0100 (CET)
      - chmod777
        
        2014-02-02 17:56
        
        User since
        2009-09-14
        82 articles
        BenutzerIn
        
        ja danke!
        
        das
        
        Code: (dl )
        
        -d "$qverz$_"
        
        war der entscheidende Hinweis!
        
        mit
        
        Code: (dl )
        
        1 2 3 4 5
        
        my @Dateien = grep { # filtere Liste aller -d "$qverz$_" # Dateien mit Dateiflag Directory } readdir(DIR); # aus Verzeichnisinhalt
        
        funktionierts
  - deleted 2014-02-02 17:00

View all threads created 2014-02-02 15:35.