Mô-đun Perl có biết nơi nó được cài đặt không?

Question

Tôi đã bắt đầu tạo một gói Perl chứa mẫu email mặc định.

Các MANIFEST trông giống như sau:

SendMyEmail.pm 
SendMyEmail/defualt_email.tt 

Hiện nay tôi biết được nơi các mô-đun (và các mẫu) là - nhưng các module chính nó biết nơi trên đĩa nó là gì? Vì vậy, các mô-đun có thể tìm thấy các mẫu mặc định mà không cần sự giúp đỡ của tôi?

# This is what I would like to do. 
package SendMyEmail; 
sub new { 
    my ($self, $template) = @_; 
    $template ||= $dir_of_SendMyEmail .'/SendMyEmail/default_email.tt'; # ?? 
} 

Có cách nào tốt hơn để bao gồm văn bản mẫu hay vị trí tốt hơn để đặt mẫu không?

Mọi tham chiếu đến các mô-đun CPAN làm điều gì đó tương tự sẽ được hoan nghênh.

Xin cảm ơn trước.

Answer 1

Mỗi file perl có quyền truy cập vào biến __FILE__ mà nói với nó đường dẫn đầy đủ của nó. Một cái gì đó như thế này nên làm như lừa:

my $DEFAULT_TEMPLATE; 
BEGIN { 
    $DEFAULT_TEMPLATE = __FILE__; 
    $DEFAULT_TEMPLATE =~ s,\.pm$,/default_email.tt,; 
} 

Tuy nhiên, nếu tất cả các bạn muốn là để bó files 'dữ liệu' với các module của bạn thì hãy nhìn vào File::ShareDir cung cấp một cách để làm điều đó.

Answer 2

Viết lại để phản ánh những gì tôi học được trong các ý kiến:

• Tìm Đường dẫn Mô-đun của

  package FooBar; 
  
  use File::Spec; 
  sub location { 
  return File::Spec->rel2abs(__FILE__); 
  } 
  

• Nơi để đặt mẫu:

  Kể từ khi mẫu sẽ nhiều khả năng có thể chỉnh sửa được, thậm chí có thể bởi một người làm việc trên mạng, tôi ongly khuyên đưa nó vào một thư mục mà "mã" chứa trong mẫu không thể được thực hiện.

  Hãy tưởng tượng một ai đó gọi: http://your.home.net/cgi-bin/default_email.tt

Answer 3

Perl cũng ghi lại vị trí tệp trong biến% INC. Bạn có thể sử dụng điều đó khi __FILE__ không khả dụng. Xem tài liệu ở số perlvar để biết chi tiết.

Answer 4

Bạn có thể sử dụng hàm băm %INC nếu mô-đun đã được tải. Ví dụ:

## load the module 
use Data::Dumper; 

## output full path to Data::Dumper module loaded 
print $INC{'Data/Dumper.pm'}; 

## see which module was loaded (if you have multiple folders with same modules) 
print Dumper(\%INC); 

Answer 5

Bạn có thể sử dụng mã thông báo __FILE__ để nhận tên (bao gồm đường dẫn) của tệp hiện tại. Nếu bạn muốn biết đường dẫn đến một mô-đun khác (mô-đun đã được tải), hãy kiểm tra nội dung của hàm băm %INC.

Answer 6

Sử dụng% INC có thể gây hiểu lầm trong trường hợp tệp không khớp chính xác với tên gói. (Đây là một mô hình chống, nhưng nó xảy ra, đôi khi cho các lý do chính đáng.) Nếu bạn muốn xác định vị trí các tập tin, các __FILE__ mã thông báo tiện dụng là đặt cược tốt nhất của bạn.Ví dụ mô-đun có thể xác định vị trí riêng của mình:

package Foo::Bar; 

use Cwd qw(abs_path); 
use File::Basename qw(dirname); 

sub module_dir { abs_path(dirname(__FILE__)) } 

1; 

Cách sử dụng:

use Foo::Bar; 

print Foo::Bar->module_dir, "\n"; 

Answer 7

tôi sử dụng bash bí danh này để tìm vị trí của một module (ví dụ như để nhìn vào thực hiện nó hay hack trong một số báo cáo gỡ lỗi in):

perlwhere() { 
    perl -wle'eval "require $ARGV[0]" or die; ($mod = $ARGV[0]) =~ s|::|/|g; print $INC{"${mod}.pm"}' $1 
} 

 
$ perlwhere Test::More 
/usr/lib/perl5/5.8.8/Test/More.pm