作者summery0212 (卖眼卖肝..)
看板Perl
标题[问题] package中副函式与主程式中副函式的宣告
时间Tue Nov 19 19:54:36 2013
假设主程式与 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 的副程式
请问我是不是从头就搞错了阿？把宣告变成"严格模式"了，而无法像之前欢乐的呼叫了
快要晕倒了，请开解我一下..感谢！
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.69.37.115
1F：→ flu:Exporter.pm 还有个 %EXPORT_TAGS 可以用啊 11/20 00:27
2F：→ flu:比如说你可以加个 %EXPORT_TAGS = ( all => \@EXPORT_OK, ); 11/20 00:28
3F：→ flu:在caller space那边就能用 use Ur::Pkg qw/:all/ 11/20 00:28
4F：→ flu:以上是针对48th行的 "就要 @EXPORT_OK...."那句 11/20 00:38
感谢！这解决了我一个问题，就是新增了一个 sub 在 package 中，
就要写两次「sub名」，一次在 package 一次在 main.pl
我这样写：(修改在文章中方便对照，请见上方)
然後...在一直try之中，我解决了我的主问题「无法在 main 中呼叫 sub」......
很蠢，因为在 &main::副程式() 的下方我有个 =POD 跟 =CUT 遮起来的程式码，
我以为被这样遮起来的程式码等同被 /* */ 了，结果好像不是 =_____=
删除了整段的 =POD 跟 =CUT 後，就可以正常使用 &副程式() 了。(...)
(我必须把脸遮起来了) 感谢您的回应！it is very useful !
-全文终- (咦)
※ 编辑: summery0212 来自: 203.69.37.115 (11/20 16:51)
5F：→ summery0212:参考 EXPORT_TAGS 的网址 11/20 17:08
7F：→ summery0212:-CHP-15-SECT-4.html 11/20 17:08
9F：→ flu:perlpod文件里面有提说可以找 podchecker来用 11/20 23:06