require findet Datei nicht (Allgemeines zu Perl)

[thread]13754[/thread]

require findet Datei nicht

Leser: 28

Articles: hide open all | hide show old branches

+19 replies
Gast script im Urlaub

2009-07-18 17:38
Ich will mit einem variablen Pfad-Bestandteil ($sitenick) mehrere Dateien (.pl mit Konfigurationsdaten) einlesen.
Will aber nicht! Habe schon reichlich Pfadvarianten bis hin zum vollen Pfad ab Root oder webroot probiert.
Code-Ausschnitt:
Code (perl): (dl )

1 2 3 4 5 6 7 8

my $sitenick = 'aikxdc'; my @Configs = qw(config.pl mysql.pl meta.pl upload.pl markup.pl); for my $cfg (@Configs) { $cfg = "config/" . $sitenick . "/" . $cfg . "; "; eval { require $cfg }; if ( $@ ){ die "Can't load $cfg: $@"; } else { print "Hallo!"; } }
Code: (dl )

1 2 3 4 5 6 7

/global test.pl /config /aikxdc config.pl meta.pl mysql.pl
Fehlermeldung:
Code: (dl )

1 2 3 4

/Users/..../global/test.pl:6: Can't load config/aikxdc/config.pl; : Can't locate config/aikxdc/config.pl; in @INC (@INC contains: /Users/..../global /Library/Perl/... usw )
Schönen Gruß aus dem Urlaub!
- +7 replies
- Linuxer
  
  2009-07-18 17:55
  
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  
  Hi,
  
  schau Dir mal "perldoc -f require" an...
  Es ist zu beachten, wie Du das Argument für require angibst.
  
  http://perldoc.perl.org/functions/require.html
  
  Btw. für Konfigurationsinformationen würde ich auf eines der Config::* Module zurückgreifen.
  
  http://search.cpan.org/search?query=Config&mode=al...
  
  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!
  - +6 replies
  - Gast script im Urlaub
    
    2009-07-18 18:34
    
    Hallo Linuxer,
    die Fehlermeldungen und die dort genannten Pfade scheinen doch ein korrektes require zu bestätigen. Jedenfalls weiß ich nicht, was ich noch ausprobieren könnte.
    
    Mit Config::* Module werde ich mich irgendwann später beschäftigen. Dazu muß ich den gegenwärtigen Umbau erst im Griff haben.
    - +5 replies
    - Linuxer
      
      2009-07-18 18:56
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Hi,
      
      ich habe es mir nochmal angesehen.
      
      Du fügst ein Semikolon an den Dateinamen an.
      Wenn Deine Dateinamen keines enthalten, solltest Du es auch nicht anfügen.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
      
      #!/usr/bin/perl # vi:ts=4 sw=4 et: use strict; use warnings; use File::Spec::Functions qw( catdir catfile ); my $base = '/tmp'; my @configs = qw( a.pl b.pl ); my $dir = 'ddd'; for my $cfg ( @configs ) { # falsch #$cfg = catdir( $base, $dir, $cfg ) .';'; #$cfg = catdir( $base, $dir, $cfg ); $cfg = catfile( $base, $dir, $cfg ); eval { require $cfg }; if ( $@ ) { die "Can't load $cfg: $@\n"; } else { print "yes!\n"; } }
      
      edit: fixed typo + grammar
      edit2: s/catdir/catfile/
      Last edited: 2009-07-20 13:36:26 +0200 (CEST)
      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!
      - +4 replies
      - GwenDragon
        
        2009-07-18 19:18
        
        User since
        2005-01-17
        14876 Artikel
        Admin1
        
        2009-07-18T16:56:10 Linuxer
        (…) ein Semikolon an den Dateinamen an.
        Oh, das habe ich übersehen. Bin heute wohl etwas schusselig.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        Linuxer
        
        2009-07-18 19:28
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        naja, ich hab es auch erst auf den zweiten Blick gesehen ;)
        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!
        
        GwenDragon
        
        2009-07-18 19:34
        
        User since
        2005-01-17
        14876 Artikel
        Admin1
        
        Ich hätte auch statt
        
        Code: (dl )
        
        $cfg = "config/" . $sitenick . "/" . $cfg . "; ";
        
        besser
        
        Code: (dl )
        
        $cfg = "config/$sitenick/$cfg; ";
        
        geschrieben, dann wäre es auffälliger.
        Das Aneineanderhängen der Zeichenketten per . macht es schwerer lesbar (ab und an jedenfalls).
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        Gast script im Urlaub
        
        2009-07-18 19:46
        
        Ich habe Euren Hinweis auf das Semicolon etwas zu spät gesehen.
        
        Ich hatte es eben auch versuchsweise entfernt. Jetzt muss ich nochmal rumprobieren woran es letztendlich lag...
- +8 replies
- GwenDragon
  
  2009-07-18 18:44
  
  User since
  2005-01-17
  14876 Artikel
  Admin1
  
  Wenn du jetzt mit FindBin den Pfad des Skripts noch vorne anfügst, dann solltes es wohl besser klappen.
  
  Der Pfad steht dann in $FindBin::Bin drin.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +7 replies
  - Gast script im Urlaub
    
    2009-07-18 19:34
    
    Danke, für FindBin! Kannte ich noch nicht.
    Allerdings hatte ich den vollständigen Pfad schon zuvor probiert.
    
    Das Problem scheint bei den Dateirechten zu liegen. Von 644 auf 755 geändert.
    
    Versteh ich zwar nicht, sehe ich auch nicht ein, aber nu geht´s. ;-)
    Danke!
    - +6 replies
    - GwenDragon
      
      2009-07-18 19:35
      
      User since
      2005-01-17
      14876 Artikel
      Admin1
      
      Guest script im Urlaub
      Das Problem scheint bei den Dateirechten zu liegen. Von 644 auf 755 geändert.
      Per require eingebundene Skripte müssen auführbar sein!
      Ist auf Unix jedenfalls so.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +4 replies
      - pq
        
        2009-07-18 22:37
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        2009-07-18T17:35:54 GwenDragon
        Per require eingebundene Skripte müssen auführbar sein!
        Ist auf Unix jedenfalls so.
        
        hier unter linux nicht.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        $ ls -l ./foo.pl -rw-r--r-- 1 tina tina 72 2009-07-18 22:35 ./foo.pl $ cat ./foo.pl package foo; use strict; use warnings; print "Compiling foo.pm\n"; 1; $ perl -wle'require "foo.pl";' Compiling foo.pm
        
        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
        
        GwenDragon
        
        2009-07-19 13:49
        
        User since
        2005-01-17
        14876 Artikel
        Admin1
        
        Hmm, ich habe mich da irgendwie vergaloppiert. Bin wohl übermüdet gewesen. Entschuldigung.
        Ich hatte früher das Problem bei manchen Web-Hostern, dass auch die per require eingebunden Skripte executable sein mussten, ansonsten gab es einen Serverfehler.
        Allerdings muss das heute nicht mehr vorkommen.
        
        Schaden tut das Setzen des executable flags jedenfalls nicht. ;)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        topeg
        
        2009-07-19 17:22
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Mir sind schon Module unter gekommen, die ihre eigenen Testscripte waren. Wenn man so was auf einem Server hat, und im CGI-Verzeichnis liegt, besteht für einen Angreifer eventuell die Möglichkeit unerwünschte Einblicke in das System zu bekommen.
        
        GwenDragon
        
        2009-07-19 17:31
        
        User since
        2005-01-17
        14876 Artikel
        Admin1
        
        Hmm, wenn die nicht ausführbar sind, gibt es meist einen Serverfehler oder wenn es dumm kommt, kann der Quelltext gelesen werden – alles eine Frage der „Verkonfigurierung“.
        
        Konfigurationsskripte sollten deswegen auch in einem nicht vom Web aus zugänglichen Verzeichnis liegen oder es sollte wenigstens per .htaccess mit deny from all geschützt ein. Zudem muss ja jemand erst einmal den Dateinamen erraten, um überhaupt zugreifen zu können.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - topeg
        
        2009-07-19 02:40
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Das macht keinen Sinn für mich.
        Das execute-flag bei Scripten ist doch nur nötig, damit in der ersten Zeile der Interpreter gesucht wird. Ruft man den Interpreter direkt auf, kann man auch einfache Textdateien, die nur lesbar sind ausführen. So gesehen ist für "require" und in dem Zusammenhang auch für "use" eine Auführbarkeit der eingebundenen Dateien nicht nötig, da der Interpreter ja schon läuft. Und es ist mir bisher nicht aufgefallen, dass perl das voraussetzt.
- +3 replies
- Gast script im Urlaub
  
  2009-07-20 13:19
  Allen nochmal vielen Dank, die sich mit meiner Frage beschäftigt haben!
  Es war wohl meine unglückliche Fehlersuche, die den Erfolg verhindert hat. Wie immer, wenn man etwas Neues anpackt, ist man verunsichert, ob es nur ein "kleiner" oder ein "grundsätzlicher" Fehler ist.
  
  Also, die Dateirechte sind egal, alle "Includes" werden eingelesen, ob mit 644 oder 755!
  Letztlich war es doch nur das Semikolon! Hier noch das fertige gekürzte Ergebnis ('aikxdc' ist variabel):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  use FindBin; use File::Spec; sub init { my $sitenick = 'aikxdc'; my @Configs = qw(config.cfg.pl meta.cfg.pl upload.cfg.pl); for my $cfg (@Configs) { $cfg = File::Spec->catdir( $FindBin::Bin, "config", $sitenick, $cfg ); eval { require "$cfg" ; }; if ( $@ ){ die "Can't load $cfg: $@"; } else { print STDERR "\nDatei geladen:'$cfg' \n"; } }
  - +2 replies
  - Linuxer
    
    2009-07-20 13:35
    
    User since
    2006-01-27
    3891 Artikel
    HausmeisterIn
    
    Hi,
    
    noch eine Anmerkung zum File::Spec.
    
    Den Bock hab ich geschossen, Dir das so vorzugeben. Sorry.
    
    catdir() ist eigentlich dazu gedacht, Verzeichnispfade zu erstellen.
    Hier geht's aber um Dateipfade, für die eher catfile() genutzt werden sollte.
    
    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!
    - Gast script im Urlaub
      
      2009-07-20 13:44
      
      Hab´s angepasst! Funktionierte aber auch mit catdir... ,-)

View all threads created 2009-07-18 17:38.