假设主程式与 package 在资料夹中像是这样:
\test\main.pl
\test\util\Functions.pm
请教各位一些问题,关于副程式 sub func() 在主程式与 package 中的宣告问题
因为最近在研究把 sub 们要丢到 package 中,又要“方便使用”
(意思是不想每次都在主程式中 util::Functions::副程式() 的去使用他)
(懒惰.. 只想 &副程式() 这样使用)
原本的程式是众多的 sub 们都放在 main.pl 胡乱呼叫使用 (perl不用宣告好棒阿)(误)
但这样不符合 source code 的重复使用性,不环保
为了把 sub 们分开,于是我找了多个教学后,我这样宣告:
[main.pl]
(改后)
use File::Basename qw(dirname); use File::Basename qw(dirname);
use Cwd qw(abs_path); use Cwd qw(abs_path);
use lib dirname( abs_path $0) ; use lib dirname( abs_path $0) ;
use util::Functions qw(副程式); use util::Functions qw/:all/ ;
&副程式(); #这样使用他 &副程式();
&另一个();
[Functions.pm]
package util::Functions; package util::Functions;
use strict; use strict;
use Exporter qw(import); use Exporter qw(import);
our @EXPORT_OK = qw(副程式); our @EXPORT_OK = qw(副程式 另一个);
%EXPORT_TAGS = ( all => \@EXPORT_OK, );
sub 副程式{ sub 副程式{ ... }
... sub 另一个{ ... }
}
到以上为止都相安无事,只是我每在 package 中新增一个 sub
就要 @EXPORT_OK 那边加一次 主程式也要加.. OTZ (有点儿累)
但是就在我今天想要在 main.pl 主程式中使用属于 main 的副程式时...出错了
然后我试了很多种宣告,都没法在 main 里呼叫 main 的副程式
请问我是不是从头就搞错了阿?把宣告变成"严格模式"了,而无法像之前欢乐的呼叫了
快要晕倒了,请开解我一下..感谢!