Perl教學(14)Perl5的包與模塊之一
發表時間:2024-02-07 來源:明輝站整理相關軟件相關文章人氣:
[摘要]一、require函數用require函數可以把程序分割成多個文件并創建函數庫。例如,在myfile.pl中有定義好的Perl函數,可用語句require ("myfile.pl"); 在程序中包含進來。當Perl解釋器看到這一語句,就在內置數組變量@INC指定的目錄中尋找文件...
一、require函數
用require函數可以把程序分割成多個文件并創建函數庫。例如,在myfile.pl中有定義好的Perl函數,可用語句require ("myfile.pl"); 在程序中包含進來。當Perl解釋器看到這一語句,就在內置數組變量@INC指定的目錄中尋找文件myfile.pl。如果找到了,該文件中的語句就被執行,否則程序終止并輸出錯誤信息:
Can't find myfile.pl in @INC
作為子程序調用參數,文件中最后一個表達式的值成為返回值,require函數查看其是否為零,若為零則終止。例如myfile.pl最后的語句是:
print ("hello, world!\n");
$var = 0;
因為最后的語句值為零,Perl解釋器輸出下列錯誤信息并推出:
myfile.pl did not reture true value
可以用簡單變量或數組元素等向require傳遞參數,如:
@reqlist = ("file1.pl", "file2.pl", "file3.pl");
require ($reqlist[$0]);
require ($reqlist[$1]);
require ($reqlist[$2]);
還可以不指定文件名,即:
require;
這時,變量$_的值即作為文件名傳遞給require。
注:如果@INC中有多個目錄中含有同一個文件,則只有第一個被包含。
1、require函數和子程序庫
用require函數可以創建可用于所有Perl程序的子程序庫,步驟如下:
a、確定存貯子程序庫的目錄
b、將子程序抽取放到單獨的文件中,將文件放到子程序庫目錄
c、每個文件末尾加一句非零值的語句,最簡單的辦法是語句 1;
d、在主程序中用require包含一個或多個所需的文件。
e、運行主程序時,用 -I 選項指定子程序庫目錄,或者在調用require前將該目錄添加到@INC數組中。
例如:假設目錄/u/perldir中存有你的Perl子程序庫,子程序mysub存貯在文件mysub.pl中�,F在來包含上該文件:
unshift (@INC, "/u/perldir");
require ("mysub.pl");
對unshift的調用把目錄/u/perldir添加到@INC數組,對require的調用將mysub.pl文件的內容包含進來作為程序的一部分。
注意:
1、應該使用unshift來向@INC中添加目錄,而不是push。因為push增加到@INC的末尾,則該目錄將被最后搜尋。
2、如果你的庫文件名與/usr/local/lib/perl中的某文件同名,則不會被包含進來,因為require只包含同名文件中的第一個。
2、用require指定Perl版本
Perl 5中,可以用require語句來指定程序運行所需的Perl版本。當Perl解釋器看到require后跟著數字時,則只有其版本高于或等于該數字時才運行該程序。例如,下面語句表明只有Perl解釋器為5.001版或更高時才運行該程序:
require 5.001;