क्या% 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;