如何强制卸载Perl模块？

嗨,我正在使用另一个不再在公司里的人写的perl脚本.
如果我独立运行脚本,那么输出是如预期的那样.但是当我重复地从另一个代码调用脚本时,输出是错误的,除了第一次.

我怀疑一些变量没有正确初始化.当它被称为独立时,每次它退出并且所有的变量值被初始化为默认值.但是当从另一个perl脚本调用时,模块和变量值可能会转移到脚本的下一次调用.
在下次打电话之前有没有办法从内存中清除被叫脚本？

我尝试启用警告,它正在投掷1000条警告线！

编辑：我如何调用另一个脚本：

代码如下所示：

do "processing.pl";
...
...
...

process(params); #A function in processing.pl
...
...
...

解决方法

如果您不想重写/修复脚本,我建议通过exec()或其一个品种调用该脚本.虽然不是很优雅,但一定会解决你的问题.

原文地址：https://www.jb51.cc/Perl/171609.html