perl – 如何确保我的代码永远不会直接退出？

发布时间：2020-12-16 06:22:23 所属栏目：大数据来源：网络整理

导读：eval{ require $file;}/*subsequent code goes here*/... 如果$file包含exit语句,则后续代码无法运行. 如何解决以便后续代码总是有机会在eval完成时运行？解决方法中止退出呼叫是不可能的. $file应该使用die,它可以被eval捕获. 作为解决方法,您可以覆盖全

eval{
   require $file;
}

/*subsequent code goes here*/
...

如果$file包含exit语句,则后续代码无法运行.

如何解决以便后续代码总是有机会在eval完成时运行？

解决方法

中止退出呼叫是不可能的. $file应该使用die,它可以被eval捕获.

作为解决方法,您可以覆盖全局退出内置：

BEGIN {
    *CORE::GLOBAL::exit = sub { die "About to exit" } 
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!