% INC의 키와 값은 플랫폼에 종속적입니까?

Question

포함 된 모듈의 전체 파일 이름을 얻고 싶습니다.

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 

는 모든 플랫폼에서 작동합니다 :이 코드를 생각해?

perlvar

해시 %INC는 의 do, require, 또는 use 사업자를 통해 포함 된 각 파일 이름 항목이 포함되어 있습니다. 키는 지정된 파일 이름 ( 모듈 이름이 경로 이름으로 변환 됨)이고 이고 값은 파일의 위치입니다.

이러한 키는 플랫폼에 종속적입니까, 그렇지 않은 것입니까? File::Spec 또는 무엇을 사용해야합니까? 적어도 win32의 ActivePerl은 \ 대신 /을 사용합니다.

업데이트 : 약 %INC은? 플랫폼에 종속적입니까?

Answer 1

가 표준 모듈의 점을 감안, 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

여기 또한 아직로드되지 않은 모듈의 작동 합리적으로 강력한 구현입니다.

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;