Gedankenanstoß - File::Find (Fragen zu Perl-Modulen)

[thread]13514[/thread]

Gedankenanstoß - File::Find

Leser: 24

Articles: hide open all | hide show old branches

+8 replies
Brenner

2009-05-13 10:35

User since
2009-01-13
87 Artikel
BenutzerIn

Es ist sicherlich ganz simpel, aber mir fehlt die Idee zur Umsetzung.

Ich habe z.B eine Verzeichnisstruktur:

d1
-aaa
--xxx
--abc
--def
e1
-aaa
--xxx
--abc
--def

Ich will überprüfen ob in d1 und e1 (usw.) es einen Unterordner namens aaa gibt (der heißt immer gleich) und wenn ja, ob es einen Ordner namens xxx (heißt auch immer gleich) gibt. Wenn dem so ist ist alles ok, falls nicht soll er das Oberverzeichnis (d1, e1 usw.) ausgeben damit man weiß wo es fehlt.
- +3 replies
- pktm
  
  2009-05-13 10:44
  
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  
  Schau dir mal das Modul File::Find::Rule an, da kannst du Regeln erstellen (z.B. Regel1 = X enthält ein Verzeichnis aaa und Regel2 = aaa ethält xxx) und kombinieren.
  Last edited: 2009-05-13 10:46:07 +0200 (CEST)
  http://www.intergastro-service.de (mein erstes CMS :) )
  - +2 replies
  - Brenner
    
    2009-05-13 12:29
    
    User since
    2009-01-13
    87 Artikel
    BenutzerIn
    
    Danke,
    
    Module sind aber fix, sprich ich darf es nicht benutzen.
    
    Gibt es sonst noch einen Lösungsansatz?
    - GwenDragon
      
      2009-05-13 12:34
      
      User since
      2005-01-17
      14544 Artikel
      Admin1
      
      Dann musst du rekursiv opendir verwenden udn dort die Verzeichnisse einlesen und diese dann mit einem regex testen..
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +2 replies
- Linuxer
  
  2009-05-13 13:00
  User since
  2006-01-27
  3872 Artikel
  HausmeisterIn
  Hi,
  
  wenn 'd1' und 'e1' bekannt sind und auch 'aaa' und 'xxx', warum nicht gleich direkt prüfen?
  
  ungetesteter Vorschlag zur Verdeutlichung:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  use File::Spec::Functions qw( catdir ); my @basedirs = qw( d1 e1 ); my @subdirs = qw( aaa aaa/xxx ); BASEDIR: for my $base ( @basedirs ) { SUBDIR: for my $sub ( @subdirs ) { my $dir = catdir( $base, $sub ); if ( !-d $dir ) { warn "$dir is missing! Please create it!\n"; #next BASEDIR; } } }
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - Brenner
    
    2009-05-13 13:53
    
    User since
    2009-01-13
    87 Artikel
    BenutzerIn
    
    Hmmm,
    
    so einfach habe ich garnicht nachgedacht sondern versucht es über die Struktur zu lösen.
    
    Ich werds gleich mal versuchen wenn mein Chef mir meinen Bürostuhl wieder gibt.
- Crian
  
  2009-05-13 14:31
  User since
  2003-08-04
  5866 Artikel
  ModeratorIn
  Vielleicht hilft dir auch sowas?
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9
  
  my @dirs = grep { not -d $_ . '/aaa' or not -d $_ . '/aaa/xxx' } ('d1', 'e1'); print "Fehlerhafte Verzeichnisse:\n"; print "$_\n" for @dirs;
  
  Last edited: 2009-05-13 14:33:44 +0200 (CEST)
  s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
  
  use strict; use warnings; Link zu meiner Perlseite
- Brenner
  
  2009-05-14 09:31
  User since
  2009-01-13
  87 Artikel
  BenutzerIn
  Ich will es doch dynamisch machen und habe mit Hilfe von Linuxer´s Code nun den Zustand das ich die erste Verzeichnisebene ganz einfach in ein array einlese.
  
  Code: (dl )
  
  1 2 3
  
  opendir(DH, $<pfadzurerstenVerzeichnisebene>); my @basedirs = readdir(DH); closedir(DH);
  
  Damit bin ich schon Mal dynamisch, wenn weitere Inhalte dazukommen.
  
  Nun hat sich die Struktur geändert:
  -verschieden (d1)
  --verschieden (Versionnummer)
  ---immer gleich (aaa)
  ----immer gleich (xxx)
  
  Wie man sieht ist dazwischen noch eine Versionnummer gekommen, die natürlich dynamisch mit jedem Update verändert wird.
  
  Ich müsste es doch schaffen in einer Schleife (mit Hilfe der oben eingelesen "basedirs") auch die Verzeichnisse einlesen zu können um danach/damit einen kompletten Pfad (mittel catdir) zu erzeugen den ich dann auf Existens abfragen kann!?
  Last edited: 2009-05-14 09:32:19 +0200 (CEST)

View all threads created 2009-05-13 10:35.