关于require的问题（已解决）

herer

一个程序运行时需要根据不同情况require库文件。

1. use Data::Dumper;
   
2. 
   
3. unshift(@INC,'tmp/');
   
4. my @a = ('11','22','11');
   
5. 
   
6. for (my $i=0;$i<=$#a;$i++) {
   
7.     my $Programme = $a[$i].'.pl';
   
8.     require ("$Programme");
   
9.     &test;
   
10. }

复制代码

下面是两个库文件

1. sub test() {
   
2.     print "aaaaaaa\n";
   
3. }
   
4. 1

复制代码

1. sub test() {
   
2.     print "bbbbb\n";
   
3. }
   
4. 1

复制代码

预期的结果是:

1. aaaaaaa
   
2. bbbbb
   
3. aaaaaaa
   

复制代码

实际结果是：

1. aaaaaaa
   
2. bbbbb
   
3. bbbbb

复制代码

herer

找到办法了，在第9行后加上：
delete $INC{$Programme};

Mr-Summer

第二次require 11 会不会因为@inc 里已经有了，所以不重新载入了。

demil

看看这个函数就清楚了   
sub require {
        my($filename) = @_;
        return 1 if $INC{$filename};
        my($realfilename,$result);
        ITER: {
            foreach $prefix (@INC) {
                $realfilename = "$prefix/$filename";
                if (-f $realfilename) {
                    $result = do $realfilename;
                    last ITER;
                }
            }
            die "Can't find $filename in \@INC";
        }
        die $@ if $@;
        die "$filename did not return true value" unless $result;
        $INC{$filename} = $realfilename;
        return $result;
    }