Làm cách nào để sử dụng mô-đun Perl từ một vị trí tương đối?

Question

Tôi có một thư mục có tên là foo và trong đó tôi có lib và bin. Các tập lệnh trong bin cần nội dung trong lib. Tôi làm điều gì đó như sau:

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

Nhưng điều đó có nghĩa là tôi phải ở trong thư mục bin để chạy tập lệnh. Chắc chắn có một cách tốt hơn. Cách tốt nhất để làm điều này là gì?

Answer 1

Mô-đun tiêu chuẩn FindBin làm những gì bạn muốn.

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

perldoc FindBin để biết thêm.

Answer 2

phân tích ra các đường dẫn đầy đủ đến .pl của bạn thông qua __FILE__ và và tack ../lib ở cuối dòng hoặc bật ra khỏi yếu tố cuối cùng của split(/\//,__FILE__) và thêm /lib đó.

Answer 3

Làm thế nào về:

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

Để làm được một tham chiếu tương đối sẽ cho rằng bạn đang đi để giữ nó trong thư mục bin, vì vậy chèn tài liệu tham khảo tương đối có để thay thế.

Answer 4

Mô-đun "FindBin" sẽ chỉ hoạt động nếu thư mục mà tập lệnh perl nằm trong PATH hệ thống của bạn, nếu không nó sẽ thất bại. Để khắc phục điều đó , bạn có thể điều chỉnh giá trị $0 để nhận thông tin về đường dẫn đến mô-đun-perl và chuyển giá trị cho use lib.

Something như thế này -

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; 

EDIT: Module FindBin hoạt động giống một cách hoàn hảo và có thể được sử dụng như mô tả trong Michael's answer. Sự hiểu biết của tôi về hoạt động của nó là không đầy đủ và do đó đã dẫn tôi đưa ra nhận xét đầu tiên mà bây giờ tôi rút lại. Dù sao, tôi không thấy bất kỳ lý do tại sao phương pháp này không nên làm việc mặc dù với một vài dòng hơn có thể đạt được bằng cách sử dụng FindBin (TMTOWTDI).

Answer 5

Tôi thường sử dụng kỹ thuật này. Cảm hứng đáng buồn của nó từ những ngày PHP của tôi:

Tiện dụng trong trường hợp bạn biết vị trí của một tệp nhất định sẽ tương ứng với hiện tại và không chắc chắn về điểm vào có thể được gọi trong hoặc xung quanh môi trường tại thời gian gọi.

Tuy nhiên, tôi thường sử dụng kỹ thuật này chỉ cho tập lệnh thử nghiệm cần thư viện giả để mô phỏng mọi thứ.

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; 

Lý tưởng nhất là nên có một số nơi mô-đun mà thực hiện điều này, nếu không muốn nói, tôi nửa cám dỗ để viết một:

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

Answer 6

Giải pháp của tôi:

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

Answer 7

Chỉ cần thêm hai xu của riêng tôi cho bộ sưu tập các câu trả lời này, tôi thường giải quyết vấn đề này bằng cách sử dụng một cái gì đó dọc theo các dòng sau:

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

Tôi thích sử dụng khối do vì mọi thứ cần thiết được chứa gọn gàng trong đó. Nếu bạn cần sao chép/dán hoặc cố gắng hiểu mã của mình sau này, bạn không cần phải tìm một khối riêng biệt BEGIN hoặc bất kỳ thứ gì tương tự.

Đoạn mã trên không đúng là giả định rằng / được sử dụng làm bộ phân cách dir/tên tệp.

Answer 8

use lib './'; 

đã làm việc cho tôi với Perl v5.14.2 trên hộp linux để bao gồm các tệp trong cùng thư mục với tập lệnh của tôi.

Có lẽ nó sẽ làm việc cho bạn để di chuyển lib và bin thư mục của bạn dưới thư mục làm việc tập lệnh của bạn và cố gắng tham khảo chúng bằng cách sử

use lib './bin/';