आप lib पथ में एक चर का उपयोग कैसे करते हैं?

Question

मैं lib पथ में $ var चर का उपयोग करना चाहता हूं।

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

use lib "$var/lib/";

हालांकि यह एक त्रुटि फेंकता है जब मैं यह करते हैं।

मैं use lib "/home/usr/bibfile/lib/"; के बजाय use lib "$var/lib/"; का उपयोग करना चाहता हूं।

मैं एक चर निर्दिष्ट कैसे कर सकता हूं, ताकि इसका उपयोग lib मॉड्यूल की सेटिंग में किया जा सके?

Answer 1

सबसे पहले, आपके पास एक सरल वाक्यविन्यास त्रुटि है - आप पहली पंक्ति के बाद ; खो रहे हैं। my वैरिएबल अन्यथा use lib में ठीक काम करना चाहिए।

हालांकि, बाद से सभी use निर्देशों BEGIN ब्लॉक में क्रियान्वित कर रहे हैं, अपने चर जैसे ही आप use चलाने पर, अप्रारंभीकृत किया जाएगा ताकि आप BEGIN ब्लॉक में भी प्रारंभ कर दिया की जरूरत है।

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

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

देता है:

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

Answer 2

आप क्या हासिल करने की कोशिश कर रहे हैं के बारे में सुनिश्चित नहीं हैं, लेकिन FindBin::libs के लिए एक कार्य की तरह लगता है:

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

Answer 3

आप नहीं कर सकते, क्योंकि use संकलन समय पर निर्देश का मूल्यांकन किया जाता है, जबकि अन्य चर का रनटाइम पर मूल्यांकन किया जाता है।

अपने lib अपने मूल स्क्रिप्ट को कहीं रिश्तेदार स्थित है, तो आप मानक मॉड्यूल FindBin उपयोग कर सकते हैं:

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