为什么我不能在Perl程序中调用导出的子程序？

发布时间：2020-12-16 06:09:00 所属栏目：大数据来源：网络整理

导读：我是Perl的新手,我面临以下问题,不知道为什么跟随不起作用. 我的Perl模块包含： package PACK2;use Exporter;@ISA = ('Exporter');@EXPORT_OK=('whom');sub why(){ print "whyn";}sub whom(){ print "whomn";}1; 我的Perl文件包含： #!/usr/bin/perl -wuse

我是Perl的新手,我面临以下问题,不知道为什么跟随不起作用.

我的Perl模块包含：

package PACK2;
use Exporter;
@ISA = ('Exporter');
@EXPORT_OK=('whom');

sub why(){
    print "whyn";
}

sub whom(){
      print "whomn";
}
1;

我的Perl文件包含：

#!/usr/bin/perl -w

use pack;
use pack2 ('whom');

PACK::who();
&whom();

我运行这个程序,找不到谁：

perl use_pack_pm.pl

who
Undefined subroutine &main::whom called at use_pack_pm.pl line 7.

解决方法

Perl是一种区分大小写的语言.我不认为模块“pack2”和“PACK2”是相同的. (但我实际上没有测试过这个.)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!