Datei- und Verzeichnisnamen in Array speichern (gelöst) (Allgemeines zu Perl)

[thread]15503[/thread]

Datei- und Verzeichnisnamen in Array speichern [gelöst]

Leser: 19

Articles: hide open all | hide show old branches

+3 replies
pernox77

2010-10-03 18:55
User since
2010-10-03
11 Artikel
BenutzerIn
Hallo zusammen,

ich habe ein bestimmtes Verzeichnis und möchte alle darin enthaltenen Dateinamen und Verzeichnsnamen (nur direkte Verzeichnisse, nicht weiter in die Tiefe gehen) in jeweils ein eigenes Array schreiben.
Dazu habe ich folgenden Code benutzen wollen:
Code: (dl )

1 2 3 4 5 6 7

$dir = 'c:\\p'; opendir (DIR, $dir) or die $!; while( $direntry = readdir(DIR)) { if (-f $direntry){push (@files, $direntry)}; if (-d $direntry){push (@subdirs, $direntry)}; }
Leider funktioniert es nicht wie gewollt. Das Array mit den Dateien ist leer und das Array mit den Verzeichnissen enthält nur . und ..
Das Verzeichnis ist aber nicht leer.
Funktioniert das mit dem -f und -d unter Windows etwa nicht? Da bei Selfhtml (http://de.selfhtml.org/perl/funktionen/dateiverwal...) kein Hinweis darauf zu finden war, dass es nur unter Unix geht, dachte ich, ich könnte es so machen.
Wo steckt der Fehler?
Vielen Dank für eure Hinweise.
Pernox
Last edited: 2010-10-03 18:58:44 +0200 (CEST)
- +2 replies
- renee
  
  2010-10-03 19:36
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Der Fehler liegt darin, dass Du nicht den kompletten Pfad bei der Überprüfung angibst. So sollte es funktionieren:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  $dir = 'c:\p'; opendir (DIR, $dir) or die $!; while( $direntry = readdir(DIR)) { my $path = $dir . '/' . $direntry; if (-f $path){push (@files, $direntry)}; if (-d $path){push (@subdirs, $direntry)}; }
  
  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/
  - pernox77
    
    2010-10-03 19:55
    
    User since
    2010-10-03
    11 Artikel
    BenutzerIn
    
    2010-10-03T17:36:13 renee
    Der Fehler liegt darin, dass Du nicht den kompletten Pfad bei der Überprüfung angibst.
    
    Vielen Dank! Da hätte ich ja sonst noch ein Weile dran geknobelt.
    
    Pernox

View all threads created 2010-10-03 18:55.