调用自定义模块出错

yanfeiliuhen

#Test.pm代码
#!/bin/env perl
package Test;
use strict;
use warnings;
use Carp qw(carp);

sub sayHello{ carp "Hello\n"; }

1;


#Test2.pl代码
#!/usr/bin/perl
use strict;
use warnings;
use Test;

Test::sayHello();


运行Test2.pl脚本，提示错误为“Undefined subroutine $Test::sayHello called at Test2.pl line 6. “
代码参加附件~

感谢大家有空帮忙看下，谢谢~

zhlong8

Perl 查找模块是按照 @INC 变量中的目录依次查找的，perl 自己有个 Test 模块，应该是先找到那个了。

这很反直觉，我记得当前目录优先级最高的啊，我的草莓perl怎么当前目录在最后了

yanfeiliuhen

回复 2# zhlong8


   我把Test.pm改为MyTest.pm，但运行时还是会提示，见以下截图所示：

zhlong8

这就是 carp 的行为。

yanfeiliuhen

回复 4# zhlong8

解决了，谢谢哈~

请教个问题，用「类」形式来实现 读写excel表 模块，这个要如何实现啊


   

zhlong8

回复 5# yanfeiliuhen


    看模块的文档，CPAN 上的模块文档往往比代码写得都好