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

Question

我有一个分叉服务器.我在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

解决方案：

my $old_require =
   defined(&CORE::GLOBAL::require)
      ? \&CORE::GLOBAL::require
      : sub { CORE::require($_[0]) };

my $new_require = sub {
   my $path = shift;
   if ($INC{$path}) {
      return $old_require->($path);
   }

   my $rv = $old_require->($path);
   warn("Loaded $path after fork\n");
   return $rv;
};

no warnings 'redefine';
*CORE::GLOBAL::require = $new_require;

该解决方案具有以下特点：

• 日志加载的模块require EXPR。
• 日志加载的模块require BAREWORD。
• 日志加载的模块use BAREWORD。
• 忽略 加载的代码do EXPR。
• 忽略无法加载的模块。
• 忽略已经加载的模块。
• 即使@INC被操纵也能工作。

最后四个是OP中解决方案遇到的问题。我找不到这个解决方案的任何缺点。