use lib ersetzen (gelöst) (Allgemeines zu Perl)

[thread]17504[/thread]

use lib ersetzen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+18 replies
bianca

2012-06-20 20:02

User since
2009-09-13
6977 Artikel
BenutzerIn

'abend!
Habe etwas Ärger mit "Empty compile time value given to use lib".
Gibt es einen vollständigen Ersatz zu use lib?
Ist push,@INC ein wirklich gleichwertiger Ersatz?
Wollte kurz vorher fragen, weil ich mir die Tests aller Module in der eigenen Lib gern ersparen wollte.
Dies ist meine Fehlerzeile:
foreach (@{$env{perlmodule_eigen}}) {use lib $_;}
Und %env wird vorher geholt über ein vorheriges require und anschließenden Aufruf einer sub.
10 print "Hallo"
20 goto 10
- bianca
  
  2012-06-20 20:17
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  Vielleicht noch zum Hintergrund der Frage:
  Ich nutze ExtUtils::Installed zur Feststellung aller Module. Nun ist mir aufgefallen, dass das Modul nicht in allen Pfaden zu suchen scheint, die man mittels use lib vorher angegeben hat.
  Man muss dafür anscheinend den Parameter extra_libs=>\@{$env{perlmodule_eigen}} in der Methode new() verwenden.
  Das ist mir schon an sich ein Dorn im Auge.
  Aber wenn ich meine eigenen Pfade an zwei Stellen verwenden muss würde ich sie gern zentral parametrisieren.
  Bisher habe ich use lib ohne Variablen verwendet und hatte deshalb keine Probleme.
  Wie würdet ihr das lösen?
  10 print "Hallo"
  20 goto 10
- +5 replies
- rosti
  
  2012-06-20 21:32
  User since
  2011-03-19
  3194 Artikel
  BenutzerIn
  1. http://rolfrost.de/map/perlbase/inc.html
  
  Zweitens ;)
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $lib = '/home/lib'; use lib $lib; # geht schief, # $lib hat noch keinen Wert, wenn use ausgeführt wird, das kommt noch vorher # Aber es geht doch: eval "use lib '$lib'"; # das geht, warum? Siehe untenstehend:
  
  Die Perl-Funktion eval interpretiert in obenstehender Zeile den Ausdruck als Code, somit wird kompiliert und die Klasse bzw. das Modul ist eingebunden. Sofern es beim Kompilieren einen Fehler gab, ist die dazugehörige Meldung in $@ zu finden.
  Last edited: 2012-06-20 21:36:55 +0200 (CEST)
  - +4 replies
  - renee
    
    2012-06-20 22:06
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Für so etwas gibt es BEGIN-Blöcke:
    
    Code: (dl )
    
    1 2 3 4 5 6 7
    
    my $lib; BEGIN { $lib = '/path/to/lib'; } use lib $lib;
    
    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/
    - +3 replies
    - rosti
      
      2012-06-20 22:47
      
      User since
      2011-03-19
      3194 Artikel
      BenutzerIn
      
      2012-06-20T20:06:04 renee
      Für so etwas gibt es BEGIN-Blöcke:
      
      Code: (dl )
      
      1 2 3 4 5 6 7
      
      my $lib; BEGIN { $lib = '/path/to/lib'; } use lib $lib;
      
      Ja Freilich ;)
      
      Mit eval AUSDRUCK wird das Kompilieren verzögert. Das kann jedoch durchaus gewollt sein, nämlich dann, wenn ein Modul erst beim Aufruf einer Subfunktion kompiliert werden soll sub foo{ eval "use Bar"}.
      
      Viele Grüße!
      - +2 replies
      - renee
        
        2012-06-21 01:02
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        War hier aber nicht gefragt ;-)
        
        Und wenn Module nachträglich geladen werden sollen, gibt es auch noch require. Wenn man mit Fehlern rechnet, kann man dann Block-eval benutzen. Aber eval ist ein anderes Thema.
        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/
        
        rosti
        
        2012-06-21 06:13
        
        User since
        2011-03-19
        3194 Artikel
        BenutzerIn
        
        Quote
        War hier aber nicht gefragt ;-)
        
        Also $_ in einem BEGIN-Block ... :D
- +11 replies
- renee
  
  2012-06-21 01:05
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Man kann lib auch ein array übergeben.
  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/
  - +10 replies
  - bianca
    
    2012-06-21 09:05
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    2012-06-20T23:05:22 renee
    Man kann lib auch ein array übergeben.
    
    Hab ich mal probiert:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    #!/usr/bin/perl use strict; use warnings; my %env = ( perlmodule_eigen => ["/arbeit/perlmodule/","/arbeit/perlmodule/lib/perl/5.10.0"], ); use lib @{$env{perlmodule_eigen}};
    
    Daran wundern mich zwei Dinge:
    1. Wieso funktioniert das nicht? Pfade werden nicht eingebunden, darin liegende Module werden nicht gefunden.
    2. Wieso kommt keinerlei Fehlermeldung? Das ist doch auch eine Variable, die zur Compile-Zeite noch nicht initialisiert ist, oder? Wieso geht das denn ohne BEGIN und ohne EVAL und trotzdem ohne Fehlermeldung, das andere mit der Schliefe aus dem ersten Versuch aber nicht?
    Was mache ich falsch?
    10 print "Hallo"
    20 goto 10
    - +9 replies
    - topeg
      
      2012-06-21 09:11
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      %env wird erst zur Laufzeit gefüllt. Zur Compilezeit, wenn die Module geladen werden ist der Hash noch leer. Schreib mal:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      #!/usr/bin/perl use strict; use warnings; my %env; BEGIN { %env = ( perlmodule_eigen => [ "/arbeit/perlmodule/", "/arbeit/perlmodule/lib/perl/5.10.0" ], ); } use lib @{$env{perlmodule_eigen}}; # ...
      
      Wie schon mal angeführt ein ein BEGIN-Block wird sofort ausgeführt wenn er geparst wurde. Damit ist %env gefüllt, wenn use lib ausgeführt wird.
      - +8 replies
      - bianca
        
        2012-06-21 09:15
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        2012-06-21T07:11:53 topeg
        Schreib mal
        
        Würde mir nichts nützen, weil %env über einen sub Aufruf bestückt wird und die sub liegt in einem anderen Script, das vorher require't wird.
        Daher brauche ich bitte eine andere Lösung.
        10 print "Hallo"
        20 goto 10
        
        +3 replies
        
        Gast Muffi
        
        2012-06-21 09:20
        
        2012-06-21T07:15:33 bianca
        2012-06-21T07:11:53 topeg
        Schreib mal
        
        Würde mir nichts nützen, weil %env über einen sub Aufruf bestückt wird und die sub liegt in einem anderen Script, das vorher require't wird.
        Daher brauche ich bitte eine andere Lösung.
        
        Verständnisfrage:
        Warum used das andere Script die libs dann nicht?
        Last edited: 2012-06-21 09:31:59 +0200 (CEST)
        
        clms
        
        2012-06-21 10:06
        
        User since
        2010-08-29
        373 Artikel
        BenutzerIn
        
        Guest Muffi
        Verständnisfrage:
        Warum used das andere Script die libs dann nicht?
        
        Das Füllen von %env und das require und Kompilieren des nachgeladenen Skripts geschehen zur Laufzeit.
        
        use lib @{$env{perlmodule_eigen}}; wird aber schon zur Kompilezeit ausgeführt. Dann ist %env noch leer, der Suchpfad wird also nicht erweitert.
        
        Lösung: Entweder %env zur Kompilezeit füllen (BEGIN-BLock) oder den Pfad erst zur Laufzeit mit push @INC... erweitern. Dann wirkt sich der erweiterte Pfad aber nur für Dinge aus, die danach (mit require)geladen werden.
        
        bianca
        
        2012-06-21 11:13
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        Guest Muffi
        Verständnisfrage:
        Warum used das andere Script die libs dann nicht?
        
        Weil ich vom Konzept her ein zentrales Script habe, das sich alles was es braucht herein require't. Und ich gehe davon aus, dass ich den Pfad im Hauptscript use'n muss, damit andere Unterscripte das finden.
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        topeg
        
        2012-06-21 10:00
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        #!/usr/bin/perl use strict; use warnings; my %env; BEGIN { use andere_lib; %env = andere_lib::befehl(); } use lib @{$env{perlmodule_eigen}}; # ...
        
        +3 replies
        
        bianca
        
        2012-06-21 11:11
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        Klappt super, vielen Dank!
        
        Verständnisfrage: Durch BEGIN wird Perl ja gezwungen schon beim Compilieren die Variable zu initialisieren. Wird das zu Beginn der Ausführung wieder verworfen und von vorn gemacht oder bleibt die Variable im Speicher und wird dann verwendet?
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        topeg
        
        2012-06-21 11:23
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Perl macht sich keine doppelte Arbeit.
        Die BEGIN-Blöcke werden einmalig ausgeführt wenn Perl beim Parsen daran vorbei kommt. Die Variablen bleiben erhalten.
        
        bianca
        
        2012-06-21 11:36
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        Super, danke euch!
        10 print "Hallo"
        20 goto 10

View all threads created 2012-06-20 20:02.