@INC auf Unterverzeichnisse erweitern (Allgemeines zu Perl)

[thread]13635[/thread]

@INC auf Unterverzeichnisse erweitern

Leser: 22

Articles: hide open all | hide show old branches

+7 replies
trojax

2009-06-15 15:48
User since
2009-05-13
21 Artikel
BenutzerIn
Hallo zusammen,
ich möchte, da ich meinen Code in vielen Unterverzeichnissen des Ordners
Code: (dl )

/Skripte
liegen habe, also z.B.
Code: (dl )

1 2 3

/Skripte/allgemeine_funktionen /Skripte/spezielle_funktionen /Skripte/auswertungsfunktionen
diesen Ordner Skripte mit allen seinen Unterverzeichnissen an das Array @INC anhängen, da das einzelne Anhängen recht unübersichtlich wäre.
Geht das irgendwie?
- pq
  
  2009-06-15 15:57
  User since
  2003-08-04
  12208 Artikel
  Admin1
  das würde wohl gehen, etwa
  
  Code (perl): (dl )
  
  use lib glob "/Skripte/*";
  
  aber wenn man saubere module schreibt, gibt man ihnen eh einen extra namespace, also bei dir etwa der name des projektes oder irgendwas eindeutiges halt. module mit nur einem namespace kannst du ab dem zeitpunkt in den müll schmeissen, wo sich jemand anderes dasselbe gedacht hat und sich namen überschneiden. von daher würde ich dir wirklich empfehlen, erstelle dir einen namespace bzw. ein verzeichnis.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +5 replies
- roooot
  
  2009-06-19 14:24
  User since
  2008-03-03
  276 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3 4
  
  use lib ( './module', './module/CPAN' );
  
  Viele Grüße :)
  - pq
    
    2009-06-19 16:32
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    das waere ja aber wieder einzelnes anhaengen, wenn ich das richtig verstanden habe.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +3 replies
  - sid burn
    
    2009-06-19 16:45
    User since
    2006-03-29
    1520 Artikel
    BenutzerIn
    
    2009-06-19T12:24:31 roooot
    
    Code (perl): (dl )
    
    1 2 3 4
    
    use lib ( './module', './module/CPAN' );
    
    Der weg hat aber mehrere Nachteile.
    
    1) Platformabhängig. Läuft nur auf Unix ähnlichen Systemen, auf anderen muss es nicht laufen und dafür gibt es keine Garantie.
    
    2) Der Punkt "." stellt das aktuelle Arbeitsverzeichnis dar, nicht das Verzeichniss indem sich die Datei befinden. Daher wenn du eine ausführbare datei unter "/usr/local/bin/asdfg.pl" hättest und du befindest dich in "/home/sidburn" und rufst dein programm mit "asdfg.pl" auf dann fügst du folgende Ordner hinzu
    
    "/home/sidburn/module",
    "/home/sidburn/modules/CPAN"
    
    ich kann mir schwer vorstellen das dies etwas ist was irgendjemand haben möchte.
    
    (Es wird natürlich wirklich nur "./module" hinzugefügt, aber es expandiert eben zu oberes, sofern man nicht mit chdir() den arbeitsordner wechselt)
    
    Besser wäre folgendes:
    
    Code: (dl )
    
    1 2 3 4
    
    use FindBin; use File::Spec::Functions; use lib catdir($FindBin::Bin, 'module'); use lib catdir($FindBin::Bin, 'module', 'CPAN');
    
    Last edited: 2009-06-19 16:50:51 +0200 (CEST)
    Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
    - +2 replies
    - roooot
      
      2009-06-19 20:56
      
      User since
      2008-03-03
      276 Artikel
      BenutzerIn
      
      Stimmt du hast recht, es hat Nachteile. An die Einschränkung bzgl Unix styled OS habe ich nicht gedacht, da ich mich nur in solchen Umgebungen bewege.
      
      2) FindBin sieht recht spannend aus, allerdings lohnt sich das eher wenn man Programme in der Shell o.ä. ausführt. In einer CGI Umgebung auf dem Webserver treten solche von dir erwähnten Fälle wohl seltenst auf.
      Viele Grüße :)
      - pq
        
        2009-06-19 22:17
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2009-06-19T18:56:22 roooot
        In einer CGI Umgebung auf dem Webserver treten solche von dir erwähnten Fälle wohl seltenst auf.
        
        kann man nie wissen. dann zieht man mal um und schwupps, läuft das skript nicht mehr.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2009-06-15 15:48.