Как я могу сбросить внутренние файлы Perl?

Question

print Dumper \%main::;

говорит мне, что есть такой файл:

      '_<perlmain.c' => *{'::_<perlmain.c'},

Как мне его сбросить?

Я пробовал эти способы, но ни один не работает:

my $typeglob = *{'::_<perlmain.c'};
print "@$typeglob\n";

print @{'_<DynaLoader.c'};
my @arr = @{'::_<xsutils.c'};
print "@arr";

Answer 1

Вы не можете напрямую извлечь исходный код для этих файлов, если сам код не скомпилирован или не предоставлен в виде модуля. Чтобы прочитать эти файлы, вам нужно получить исходный пакет Perl из CPAN.

Вы можете, однако, извлечь miniperl, который используется как часть создания ядра Perl, но в котором отсутствуют данные автозагрузки модуля ядра; Подробнее читайте в perldoc или man-странице для ExtUtils::Miniperl.