Perl中多次调用require加载同一文件仅首次执行问题求助

require 是Perl内置的模块/文件加载函数，默认自带重复加载拦截机制：

• 首次调用 require "mycode1.pm" 执行成功后，Perl会自动将该文件名作为键存入全局哈希表 %INC 中，标记该文件已完成加载。
• 后续所有针对同一文件的require调用，都会先检查%INC中的标记，只要存在对应记录就直接返回真值，不会重新读取、执行文件内的代码，所以你后面两次的require调用都没有生效。

如果你确实需要每次条件触发时都执行mycode1.pm内的代码，可以选择两种修改方案：

• 改用do函数加载文件：do函数没有重复加载校验逻辑，每次调用都会读取并执行目标文件内容

if ($value =~ "test") { do "mycode1.pm"; }
if ($value =~ "code") { do "mycode1.pm"; }
if ($value =~ "last") { do "mycode1.pm"; }

• 每次require执行后手动清除%INC中的加载标记：

if ($value =~ "test") { 
    require "mycode1.pm";
    delete $INC{"mycode1.pm"}; # 清除已加载标记
}
if ($value =~ "code") { 
    require "mycode1.pm";
    delete $INC{"mycode1.pm"};
}
if ($value =~ "last") { 
    require "mycode1.pm";
    delete $INC{"mycode1.pm"};
}

注意：如果你的mycode1.pm是定义了包、函数的常规模块，反复加载可能会触发函数重定义的警告，建议优先将可复用逻辑封装为可重复调用的函数，而非反复加载整个文件。

内容的提问来源于stack exchange，提问作者Domenike