% INC platformuna bağlı anahtarlar ve değerler var mı, değil mi?

Question

Dahili bir modülün tam dosya adını almak istiyorum.

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 

tüm platformlar üzerinde çalışacak mı: Bu kodu düşünün?

perlvar

karma %INC için do, require veya use operatör ile birlikte, her dosya girişleri içerir. anahtarı, belirttiğiniz dosya adıdır ( , yol adlarına dönüştürülmüş modül adları ile), ve değer, dosyasının bulunduğu yerdir.

Bu tuşlar platform bağımlı mı değil mi? File::Spec mu kullanmalıyım? Win32'deki en azından ActivePerl, \ yerine / kullanır.

Güncelleme:%INC değerleri hakkında ne düşünüyorsunuz? Platform bağımlı mı?

Answer 1

standart bir modül var olduğu göz önüne alındığında, Module::Loaded gelen yaklaşımla gidin:

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

Burada da henüz yüklenmediği modülleri için çalışacak bir makul sağlam uygulama bu.

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;