require und local::lib (solved) (Fragen zu Perl-Modulen)

[thread]20472[/thread]

require und local::lib [solved]

Tags: perl5 Similar Threads

Readers: 13

Articles: hide open all | hide show old branches

+3 replies
bianca

2018-06-07 09:15

User since
2009-09-13
7016 articles
BenutzerIn

Guten Morgen!

In Fortsetzung der Sache CPAN in Webspace ohne Admin Rechte suche ich jetzt eine allgemeingültige Schreibweise im Script.

Auf dem Webspace mit local::lib funktioniert if (defined $verzeichnis) { use local::lib $verzeichnis; } wunschgemäß.
Aber auf einem Webspace ohne dies erzeugt es seitenweise Fehler, scheinbar für jedes Modul mindestens einen Fehler.

Wie kann ich das allgemeingültig schreiben, dass use local::lib gemacht wird, wenn $verzeichnis definiert ist?

Habe bereits etliches mit require und eval probiert aber das führt alles nur zu Fehlermeldungen
10 print "Hallo"
20 goto 10
- +2 replies
- haj
  
  2018-06-07 11:03
  User since
  2015-01-07
  570 articles
  BenutzerIn
  2018-06-07T07:15:52 bianca
  Auf dem Webspace mit local::lib funktioniert if (defined $verzeichnis) { use local::lib $verzeichnis; } wunschgemäß.
  Aber auf einem Webspace ohne dies erzeugt es seitenweise Fehler, scheinbar für jedes Modul mindestens einen Fehler.
  
  Diese Schreibweise ist etwas seltsam: defined $verzeichnis prüft, ob die Variable $verzeichnis definiert ist, nicht aber, ob das Verzeichnis existiert. Ob das Verzeichnis existiert, prüfst Du mit -d $verzeichnis.
  
  Das ganze ist ein Wettlauf zwischen dem Perl-Parser und local::lib, das unter Umständen vorher die Verzeichnisse richtigstellen muss.
  Um local::lib den notwendigen Vorsprung zu verschaffen, kannst Du einen BEGIN-Block verwenden:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  BEGIN { my $verzeichnis = "..."; if (defined $verzeichnis) { eval "use local::lib '$verzeichnis';"; die $@ if $@; } }
  - bianca
    
    2018-06-07 11:31
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    2018-06-07T09:03:09 haj
    Diese Schreibweise ist etwas seltsam: defined $verzeichnis prüft, ob die Variable $verzeichnis definiert ist, nicht aber, ob das Verzeichnis existiert. Ob das Verzeichnis existiert, prüfst Du mit -d $verzeichnis.
    
    Ja, das wird an einer anderen Stelle gemacht. Danke für den Hinweis.
    
    2018-06-07T09:03:09 haj
    Das ganze ist ein Wettlauf zwischen dem Perl-Parser und local::lib, das unter Umständen vorher die Verzeichnisse richtigstellen muss.
    
    Diese local::lib Lösung ist ein Ersatz für eine reine Kopier Lösung die nicht mehr funktionierte, weil der Provider das Linux neu compiliert hatte.
    Die Stelle des Aufrufs bleibt die selbe, funktioniert dort wie gewünscht.
    
    Mein Fehler war, die Hochkommas im eval vergessen zu haben.
    
    Danke dir für die Hilfe!
    10 print "Hallo"
    20 goto 10

View all threads created 2018-06-07 09:15.