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

但是，您可以提取用于创建核心Perl的部分miniperl，但缺少核心模块自动加载数据;有关详细信息，请阅读ExtUtils::Miniperl的perldoc或联机帮助页。