a.pl中use自己写的pm，然后b.pl中do “a.pl”报错

sceyu

a.pl代码：

1. #!/usr/bin/perl
   
2. use c;
   
3. 
   
4. sub print1 {
   
5.         print "a\n";
   
6. }
   
7. sub print2 {
   
8.         print "b\n";
   
9. }
   
10. &print1;

复制代码

c.pm与a.pl同目录

b.pl代码：

1. do "上级路径/test.pl";
   
2. 
   
3. &print2;

复制代码

运行b.pl报错：
Undefined subroutine &main::print2 called at 上级路径/test.pl line xx

如果不用use就会报错，运行正常

use File::Copy也运行正常

把 上级路径 push进@INC 也报错

怎么解？求指教，谢谢~~

flw

perldoc FindBin
perldoc lib

use FindBin;
use lib $FindBin::Bin;

pengphy

回复 1# sceyu


    你do  导入文件 use  c; 应该是失败了  do应该就已经返回了 所以print1 和 print2就不会被导入到当前文件了

pengphy

回复 1# sceyu

1. use warnings;
   
2. use strict;
   
3. 
   
4. require "../test.pl";
   
5. 
   
6. print $@; # 看看错误消息吧  

复制代码

zhlong8

谁告诉你用 do 的……

pengphy

回复 5# zhlong8


    顶

sceyu

可以了，把use c；改成
BEGIN {
push @INC, "上级路径";
}
use c；
就好了，谢谢各位~

seufy88

什么是do???

sceyu

看了下书，原来use会形成BEGIN块，所以要在use之前写个BEGIN块把路径push进去才行。（require永远在BEGIN后面）
貌似END块不能调整顺序

努力小伙

回复 7# sceyu


    使用unshift直接塞到头顶，比push追加到屁股上要快