perl能否动态卸载包？

china_yebin

众所周知，我们可以用以下代码动态加载pm包

require Fcntl;
Fcntl->import(qw(O_EXCL O_CREAT O_RDWR));

但现在我想动态卸载，好像没有相关的资料，望高手指点一下，谢谢。

MMMIX

原帖由 china_yebin 于 2009-7-18 08:35 发表
众所周知，我们可以用以下代码动态加载pm包

require Fcntl;
Fcntl->import(qw(O_EXCL O_CREAT O_RDWR));

但现在我想动态卸载，好像没有相关的资料，望高手指点一下，谢谢。

动态卸载调用 unimport 就是了，不过一般的 module 都不提供这个函数。

china_yebin

能否给一个例子看看。
我看了资料，import是Exporter的函数，那unimport是怎么来的？
谢谢

MMMIX

原帖由 china_yebin 于 2009-7-18 09:44 发表
我看了资料，import是Exporter的函数，那unimport是怎么来的？

只不过 Exporter 提供了一个默认的 import 而已，你也可以自己写，而不用它的。unimport 也一样，你可以自己写，也可用用别人已经写好的(如果有的话).

BTW，你先看看 use 的文档，再看看 Exporter 的文档代码，以及其他相关的文档，都看明白了就知道怎么做了。

china_yebin

确实一言惊醒，谢谢LZ的提醒，要深入研究还是要靠自己去专研啊。

谢谢。

hitsubunnu

直接用  no 包名

例  no strict;