Wie verwenden Sie eine Variable in Lib Path?

Question

Ich möchte die $ var-Variable in lib-Pfad verwenden.

my $var = "/home/usr/bibfile;"

use lib "$var/lib/";

Jedoch, wenn ich dies tun, wirft es einen Fehler.

Ich möchte use lib "$var/lib/"; statt use lib "/home/usr/bibfile/lib/"; verwenden.

Wie kann ich eine Variable zuweisen, so dass sie in der Einstellung von lib-Modulen verwendet werden kann?

Answer 1

Zuerst haben Sie einen einfachen Syntaxfehler - Sie fehlen ; nach der ersten Zeile. my Variable sollte sonst in use lib gut funktionieren.

Da jedoch alle use Richtlinien in BEGIN Block ausgeführt werden, wird Ihre Variable zur Zeit Sie use laufen nicht initialisiert werden, so dass Sie auch die Initialisierung in BEGIN Block setzen müssen.

my $var; 
BEGIN { $var = "/home/usr/bibfile"; } 
use lib "$var/lib/"; 

use Data::Dumper; 
print Dumper \@INC; 

Gibt:

$VAR1 = [ 
     '/home/usr/bibfile/lib/', 
     # ... more ... 
    ]; 

Answer 2

Nicht sicher, was Sie versuchen scheint zu erreichen, aber wie eine Aufgabe für FindBin::libs:

my $var; 
BEGIN { $var = "/home/usr/bibfile" }; 
use FindBin::libs "Bin=$var", "base=lib"; 

Answer 3

Sie können nicht, weil der use Direktive wird zur Kompilierzeit ausgewertet, während andere Variablen zur Laufzeit ausgewertet werden.

Wenn Ihr lib zu Ihrem ursprünglichen Skript irgendwo relativ befindet, können Sie den Standard-Modul verwenden FindBin:

# $Bin from FindBin is the directory of the original script 
use FindBin; 
use lib "$FindBin::Bin/path/to/bib"; 
use MyModule;