如何转储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

如果代码本身没有在模块中编译或作为模块提供，则无法直接提取这些文件的源代码。要读取这些文件，您需要从CPAN获取Perl源码包。

但是，您可以提取miniperl，它是创建核心Perl的一部分，但缺少核心模块自动加载数据；有关详细信息，请参阅ExtUtils::Miniperl的perldoc或手册页。