Các khóa và giá trị của% INC có phụ thuộc vào nền tảng hay không?

Question

Tôi muốn lấy tên đầy đủ của một mô-đun đi kèm. Hãy xem xét mã này:

package MyTest; 

my $path = join '/', split /::/, __PACKAGE__; 
$path .= ".pm"; 

print "$INC{$path}\n"; 

1; 

---

$ perl -Ipath/to/module -MMyTest -e0 
path/to/module/MyTest.pm 

Nó sẽ làm việc trên tất cả các nền tảng?

perlvar

Các băm %INC chứa mục cho mỗi tên tập tin bao gồm thông qua do, require, hoặc use nhà khai thác. Khóa là tên tệp bạn đã chỉ định (với tên mô-đun được chuyển đổi thành tên đường dẫn), và giá trị là vị trí của tệp được tìm thấy.

Các phím này có phụ thuộc vào nền tảng hay không? Tôi có nên sử dụng File::Spec hay không? Ít nhất ActivePerl trên win32 sử dụng / thay vì \.

Cập nhật: Còn giá trị %INC thì sao? Họ phụ thuộc vào nền tảng?

Answer 1

Cho rằng đó là một mô-đun chuẩn, với cách tiếp cận từ Module::Loaded:

sub is_loaded (*) { 
    my $pm  = shift; 
    my $file = __PACKAGE__->_pm_to_file($pm) or return; 

    return $INC{$file} if exists $INC{$file}; 

    return; 
} 

sub _pm_to_file { 
    my $pkg = shift; 
    my $pm = shift or return; 

    my $file = join '/', split '::', $pm; 
    $file .= '.pm'; 

    return $file; 
} 

Answer 2

Dưới đây là một việc thực hiện mạnh mẽ một cách hợp lý cũng sẽ làm việc cho module chưa được nạp được nêu ra.

use File::Find; 
use File::Spec; 

sub pkg2path (*) { 
    my $file = join '[\\\/:]' => 
       map "\Q$_" => 
       split /::|'/ => "$_[0].pm";   # ' 

    /$file$/ and return File::Spec->rel2abs($INC{$_}) 
     for keys %INC; 

    # omit the rest to only find loaded modules 

    my $path; find { 
     no_chdir => 1, 
     wanted => sub { 
      $path = $_ and goto found if /$file$/ 
     } 
    } => @INC; 

    found: File::Spec->rel2abs($path or return) 
} 

say pkg2path Benchmark; 
say pkg2path Devel::Trace;