从重复包含一个文件来看require 和 use 的区别和联系

 个人水平有限，如有错误，请赐教！

如果从网上搜索require和use的区别和联系，绝对是一搜一大堆，但还是很含糊，基本上都知道他们之间有以下三点区别：

 

 

第一、Perl use只能够引用模块，而require没有限制，例如：

             有一个模块 TEST.pm(在/home下)，则引用这个模块的可用方法：

             require "/home/TEST.pm";  require '/home/TEST.pm';   require TEST;  use TEST;

 

第二、Perl use语句是编译时引入的，require是运行时引入的

第三，Perl use引入模块的同时，也引入了模块的子模块。而require则不能引入，要在重新声明

但是对于第二点和第三点我一直是含糊不清，今天这个例子可以帮助理解下，但还是比较肤浅的。

测试环境如下：不管模块的目录问题。

1. 有如下模块：AAA.pl，BBB.pm, test.pl。其中BBB.pm为一个模块。
2. 各个模块的代码如下：

    AAA.pl ：

           sub a_test { print "a_test/n"; } 1;

 

    BBB.pm :

        package BBB; require Exporter; @ISA = qw(Exporter); @EXPORT = qw(bb_test); require '/home/ansx/perl/bol/AAA.pl'; sub bb_test() { print "b_test/n"; } 1;

 

    test.pl

        #!/usr/bin/perl package DUMPVAR; sub dumpvar { ($packageName) = @_; $rPackage = /%{"${packageName}::"}; # Get a reference to the appropriate symbol table hash. $, = " " ; print "------$packageName start----/n"; while (($varName, $globValue) = each %$rPackage) { print "$varName ============================= /n"; *var = $globValue; if (defined ($var)) { print "/t /$$varName $var /n"; } if (defined (@var)) { print "/t /@$varName @var /n"; } if (defined (%var)) { print "/t /%$varName ",%var," /n"; } if (defined (&var)) { print "/t /&$varName ","function"," /n"; } } print "------$packageName end------/n"; } package CCC; require '/home/ansx/perl/bol/AAA.pl'; use BBB; #1-1 require BBB; #1-2 #&a_test(); #1-3 $var = 1; my @arr = (1,2); DUMPVAR::dumpvar(CCC); DUMPVAR::dumpvar(BBB);

 

      

1）     这时perl test.pl,结果如下：

        ------CCC start---- bb_test ============================= &bb_test function var ============================= $var 1 BEGIN ============================= ------CCC end------ ------BBB start---- EXPORT_FAIL ============================= a_test ============================= &a_test function bb_test ============================= &bb_test function ISA ============================= @ISA Exporter EXPORT ============================= @EXPORT bb_test import ============================= ------BBB end------

        这时可以看到模块CCC和BBB都有bb_test函数的符号表。但是模块CCC中没有a_test函数的符号表。就其原因，个人认为用到上面提到的知识点了。

        use 语句是编译时引用的，并且同时也引入子模块（在这里是AAA.pl）。而require是运行引入的。另外一个规则是用动态引用任何一个子模块时，

        只能被引入一次。

        所以在这里就表现use 先引入AAA.pl，而 require后动态引入，但是发现AAA.pl已经被引入了，所以就不再引入了。同时对于BBB.pl中的bb_test函数

        两者都拥有，但是当实际调用时用到的上下文环境是BBB.pl中的。（如果有时间后面会讨论这个问题，这也是和require的另一个区别）

 

 

 

 

 

2）

       如果#1-3所注的那行如果加上：则会出现

 

        Undefined subroutine &CCC::a_test called at test.pl line 33.

3）

       如果#1-1所在的那行注视掉，并且加上#1-3则会出现

        a_test ------CCC start---- a_test ============================= &a_test function var ============================= $var 1 ------CCC end------ ------BBB start---- bb_test ============================= &bb_test function ISA ============================= @ISA Exporter EXPORT ============================= @EXPORT bb_test ------BBB end------

       看到第一行是所允许a_test()的输出结果，可以看到模块CCC中有a_test函数的符号表。

       原因是上面的require的先执行，后面的#1-2才执行。

       同时也发现模块CCC中没有了bb_test函数的符号表，具体原因应该是BBB.pm中有一个包（BBB），

       而require就想当于include，只不过是动态执行了。从此可见use 和require的区别还是

       挺大的。

       其中把#1-2换成 require '/home/ansx/perl/bol/BBB.pl';结果是一样的。

 

 

 这篇到此为止了，解释的不多，我觉得从代码中看结果和思考更有感觉。