मैं एक संबंधित स्थान से पर्ल मॉड्यूल का उपयोग कैसे करूं?

Question

मेरे पास foo नामक एक डीआईआर है, और इसमें मेरे पास lib और bin है। bin में लिपियों को lib में सामान की आवश्यकता है। मैं कुछ इस तरह करते हैं:

#!perl 
use strict; 
use warnings; 
use lib '../lib'; 
use Foo; # <-- comes from lib 

लेकिन इसका मतलब है कि मैं bin निर्देशिका स्क्रिप्ट चलाने के लिए में रहना होगा। निश्चित रूप से एक बेहतर तरीका है। ऐसा करने का सही तरीका क्या है?

Answer 1

मानक FindBin मॉड्यूल जो आप चाहते हैं वह करता है।

use FindBin; 
use lib "$FindBin::Bin/../lib"; 

perldoc FindBin और अधिक के लिए।

Answer 2

__FILE__ के माध्यम से अपने .pl पूर्ण पथ बाहर पार्स और और अंत पर ../lib कील या split(/\//,__FILE__) के अंतिम तत्व बंद पॉप और उस के लिए /lib जोड़ें।

Answer 3

के बारे में कैसे:

BEGIN: { 
    push @INC, '/full/path/to/lib'; 
} 

एक रिश्तेदार संदर्भ मान लें कि आप बिन निर्देशिका में रखने के लिए जा रहे हैं, इसलिए बजाय वहाँ सापेक्ष संदर्भ सम्मिलित करने के लिए।

Answer 4

"FindBin" मॉड्यूल केवल तभी काम करेगा यदि पर्ल स्क्रिप्ट में स्थित निर्देशिका आपके सिस्टम पाथ में है, अन्यथा यह असफल हो जाएगी। पर काबू पाने के लिए आप $0 मान को अपने पथ-से-perl-module जानकारी प्राप्त करने के लिए उपयोग कर सकते हैं और मान को use lib पर पास कर सकते हैं।

कुछ इस तरह -

BEGIN { 
    use File::Spec::Functions qw(rel2abs); 
    use File::Basename qw(dirname); 

    #Covert the script path to absolute and get its directory name 
    our $path = dirname(rel2abs($0)); 

    #Replace the bin tag with lib to get module directory 
    $path =~ s{bin/?$}{lib}; 
} 

use lib $path; 

संपादित करें: FindBin मॉड्यूल बस पूरी तरह से काम करता है और Michael's answer में वर्णित के रूप में इस्तेमाल किया जा सकता है। इसकी कार्यप्रणाली की मेरी समझ अपूर्ण थी और इसलिए मुझे पहली टिप्पणी करने के लिए प्रेरित किया जो अब मैं वापस लेता हूं। वैसे भी, मुझे कोई कारण नहीं दिख रहा है कि इस विधि को FindBin (TMTOWTDI) का उपयोग करके हासिल की जा सकने वाली कुछ और लाइनों के बावजूद क्यों काम नहीं करना चाहिए।

Answer 5

मैं आमतौर पर इस तकनीक का उपयोग करता हूं। इसके उदासी मेरी पीएचपी दिनों से प्रेरित:

स्थितियों में इसका काम जहाँ आप जानते हैं, जहां किसी दिए गए फ़ाइल वर्तमान एक के सापेक्ष जाएगा, और प्रवेश की यकीन है कि यह में कहा जा सकता है बिंदुओं नहीं हैं या आसपास के कॉलटाइम पर पर्यावरण।

हालांकि, मैं आम तौर पर इस तकनीक का उपयोग केवल परीक्षण स्क्रिप्ट के लिए करता हूं जिसके लिए चीजों को अनुकरण करने के लिए डमी लाइब्रेरी की आवश्यकता होती है।

use File::Basename(); 
use Cwd   (); 
my $base_dir; 
my $relative_path; 
BEGIN { 
    $realitive_path = '../../' # Path to base of project relative to the current file 
    $base_dir = Cwd::realpath(File::Basename::dirname(__FILE__) .'/' . $relative_path); 
} 


use lib "${base_dir}/lib"; 
use Foo; 

आदर्श रूप में वहाँ कुछ मॉड्यूल कहीं कि यह करता है होना चाहिए, अगर नहीं, मैं आधे से एक लिखने के लिए परीक्षा रहा हूँ:

use Some::Module(); 
use lib Some::Module::relative_self('../../lib', __FILE__); 

Answer 6

मेरे समाधान:

use lib substr(__FILE__, 0, rindex (__FILE__, "/")); 

Answer 7

बस जोड़ने के लिए मेरे अपने दो सेंट जवाब के इस संग्रह के लिए, मैं आमतौर पर इन पंक्तियों के साथ कुछ का उपयोग कर इस समस्या का समाधान:

use lib do { 
    use Cwd 'realpath'; 
    my ($dir) = __FILE__ =~ m{^(.*)/}; # $dir = path of current file 
    realpath("$dir/../lib");   # path of '../lib' relative to $dir 
}; 

मैं एक do ब्लॉक का उपयोग क्योंकि सब कुछ की जरूरत है तो बड़े करीने से उसमें निहित है पसंद है। यदि आपको कभी भी कॉपी/पेस्ट करने की आवश्यकता है, या बाद में अपने कोड को समझने का प्रयास करें तो आपको अलग BEGIN ब्लॉक या उसके जैसा कुछ भी देखने की आवश्यकता नहीं है।

उपरोक्त कोड naEvely मानता है कि / एक डीआईआर/फ़ाइल नाम विभाजक के रूप में उपयोग किया जाता है।

Answer 8

use lib './'; 

मेरे लिपि के समान निर्देशिका में फ़ाइलों को शामिल करने के लिए लिनक्स बॉक्स पर पर्ल v5.14.2 के साथ मेरे लिए काम कर रहा है।

शायद आप अपनी स्क्रिप्ट का कार्यशील निर्देशिका के तहत अपने lib और बिन निर्देशिका ले जाएँ और का उपयोग कर उन्हें संदर्भित करने के लिए प्रयास करने के लिए के लिए यह काम करेगा

use lib './bin/';