perl - 确定程序启动后加载的模块

Question

我有一个 fork 服务器。我在 fork 之前加载了所有模块。

……还是我？我希望在程序中的某个点之后加载的每个模块都将一条消息记录到 STDERR。

我打算使用以下内容，但它记录了一些使用 do 执行的脚本.

my %ignore = map { $_ => 1 } ( ... );
unshift @INC, sub {
   my (undef, $path) = @_;
   warn("$path wasn't loaded before forking.\n")
      if !$ignore{$path};

   return ();
};

我不是没有想法，但在我花更多时间在这之前，我想知道是否有现有的解决方案。

Answer 1

什么东西在用do ?简直就是

if $path =~ /\.pm\z/ && !$ignore{$path};

好到可以区分吗？

其他选项:

使用 PPI 进行静态代码分析(使用或基于 Module::Extract::Use)。

根据 SIGHUP 或其他信号将 %INC 转储到文件中。