作者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