[問題] package中副函式與主程式中副函式的宣告

作者: summery0212 (賣眼賣肝..)   2013-11-19 19:54:36
假設主程式與 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 的副程式
請問我是不是從頭就搞錯了阿?把宣告變成"嚴格模式"了,而無法像之前歡樂的呼叫了
快要暈倒了,請開解我一下..感謝!
作者: flu (Crazy Rhythm)   2012-01-20 00:27:00
Exporter.pm 還有個 %EXPORT_TAGS 可以用啊比如說你可以加個 %EXPORT_TAGS = ( all => \@EXPORT_OK, );在caller space那邊就能用 use Ur::Pkg qw/:all/以上是針對48th行的 "就要 @EXPORT_OK...."那句
作者: summery0212 (賣眼賣肝..)   2012-01-20 17:08:00
參考 EXPORT_TAGS 的網址http://perl.find-info.ru/perl/026/intermediateperl-CHP-15-SECT-4.html短網址:http://ppt.cc/jdgx
作者: flu (Crazy Rhythm)   2012-01-20 23:06:00
perlpod文件裡面有提說可以找 podchecker來用

Links booklink

Contact Us: admin [ a t ] ucptt.com