求教问题：在perl模块最后加上“1；” 还是会报错“did not return a true value”

mmbh

自己写的两个模块，末尾都加上了“1；”，在Main.pl中调用模块函数时一个正常但另一个报错：

Module 1：

1. package Device::Serial;
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Win32::SerialPort;
   
6. 
   
7. require Exporter;
   
8. our @EXPORT = qw();
   
9. our @EXPORT_OK = qw();
   
10. sub1
    
11. sub2
    
12. ...
    
13. 1;

复制代码

Module 2:

1. package Init::ParseCfg;
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Config::IniFiles;
   
6. 
   
7. require Exporter;
   
8. our @EXPORT = qw();
   
9. our @EXPORT_OK = qw();
   
10. sub1
    
11. sub2
    
12. ...
    
13. 1;

复制代码

Main.pl:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use Carp;
   
6. 
   
7. use FindBin qw($Bin);
   
8. use lib "$Bin";
   
9. 
   
10. use Device::Serial;
    
11. use Init::ParseCfg;

复制代码

编译时报“Init/ParseCfg.pm did not return a true value at Main.pl line 10,
            BEGIN failed--compilation aborted at Main.pl line 10."

环境是winxp 32bit， ActivePerl 5.10.1

奇怪的是Serial模块用起来就正常，第二个不管怎么弄都要报这个错。@INC路径应该没有问题啊。请这里的高手帮忙看看是哪里出错了，万分感谢

zhlong8

InitParseCfg.pm did not return a true value at Main.pl line 10,

package Init::ParseCfg;

mmbh

回复 2# zhlong8


感谢LS的回复。
我知道是这个模块的错误，Perl的提示信息很清楚，只是不知道为什么会出现这个错误而另一个模块没有出错。
请问是出现了命名冲突吗？

zhlong8

回复  zhlong8


感谢LS的回复。
我知道是这个模块的错误，Perl的提示信息很清楚，只是不知道为什么 ...
mmbh 发表于 2011-05-03 20:49

    你的 Init 文件夹下有 ParseCfg.pm 这个文件吗？我是这个意思。两种名字不同

mmbh

回复 4# zhlong8


    谢谢你的热心回复。

    我的Main.pl所在文件夹里有一个子文件夹“Init”，里面只有一个文件“ParseCfg.pm”，Device模块也是如此。
    开始我以为是路径的问题,但是改了文件夹和pm的名字,甚至把ParseCfg.pm和Main.pl放在同一个文件夹里,直接用"use ParseCfg"和"require   ParseCfg.pm"都试过了,还是不行啊  看来自己是钻牛角尖了呢.

zhlong8

回复  zhlong8


    谢谢你的热心回复。

    我的Main.pl所在文件夹里有一个子文件夹“Init ...
mmbh 发表于 2011-05-03 21:49

    解决了还是没解决？不行把那个源文件发上来

    还有你这样用 Exporter 是没法导入函数的吧

wxlfh

1. BEGIN {
   
2.     use FindBin qw($Bin);
   
3.     unshift @INC,$Bin;
   
4. }

复制代码

也许改成这样就行了。use lib 是在编译阶段执行的，而不是在运行时执行。

mmbh

回复 6# zhlong8


    明天我去公司再看看. 搞定了再来结贴哈.
   我这样用Export就是不要默认导入任何sub,调用时必须用完整的包名称.
   BTW, 这和模块中sub的返回值木有关系吧?

mmbh

回复 7# wxlfh


    谢谢回复.

    但是Device::Serial又是可行的啊? use就相当于BEGIN{require和import}的吧,这个不是应该编译时就加载的吗?

    明天去try一try,空了一定得好好看看羊驼书啊.

zhlong8

回复  wxlfh


    谢谢回复.

    但是Device::Serial又是可行的啊? use就相当于BEGIN{require和imp ...
mmbh 发表于 2011-05-03 22:02

    问题不在 main.pl 你两个模块里面都是 require 'Exporter'; 应该用 use base 'Exporter';

   如果你要用全名那还要 Exporter 做什么……