Perl教學(xué)(14)Perl5的包與模塊之5
發(fā)表時(shí)間:2024-06-11 來(lái)源:明輝站整理相關(guān)軟件相關(guān)文章人氣:
[摘要]2、導(dǎo)入模塊將模塊導(dǎo)入你的Perl程序中使用use語(yǔ)句,如下句導(dǎo)入了Mymodule模塊:use Mymodule;這樣,模塊Mymodule中的子程序和變量就可以使用了。取消導(dǎo)入模塊使用no語(yǔ)句,如下句取消了Mymodule模塊的導(dǎo)入:no Mymodule;下面看一個(gè)導(dǎo)入模塊和取消導(dǎo)入的例子,...
2、導(dǎo)入模塊
將模塊導(dǎo)入你的Perl程序中使用use語(yǔ)句,如下句導(dǎo)入了Mymodule模塊:
use Mymodule;
這樣,模塊Mymodule中的子程序和變量就可以使用了。
取消導(dǎo)入模塊使用no語(yǔ)句,如下句取消了Mymodule模塊的導(dǎo)入:
no Mymodule;
下面看一個(gè)導(dǎo)入模塊和取消導(dǎo)入的例子,使用integer模塊要求所有數(shù)字運(yùn)算基于整數(shù),浮點(diǎn)數(shù)在運(yùn)算前均被轉(zhuǎn)化為整數(shù)。
1: #!/usr/local/bin/perl
2:
3: use integer;
4: $result = 2.4 + 2.4;
5: print ("$result\n");
6:
7: no integer;
8: $result = 2.4 + 2.4;
9: print ("$result\n");
程序輸出如下:
$ program
4
4.8
$
如果use或no語(yǔ)句出現(xiàn)在語(yǔ)句塊中,則只在該塊的有效范圍內(nèi)起作用,如:
use integer;
$result1 = 2.4 + 2.4;
if ($result1 == 4) {
no integer;
$result2 = 3.4 + 3.4;
}
$result3 = 4.4 + 4.4;
結(jié)果輸出如下:
4
6.8
8
這里,no語(yǔ)句只在if語(yǔ)句中有效,出了if語(yǔ)句仍使用integer模塊,因此4.4在做加法前被轉(zhuǎn)化成了4。
3、預(yù)定義模塊
Perl 5提供了許多有用的預(yù)定義模塊,可以用use導(dǎo)入和no語(yǔ)句取消。下面是庫(kù)中最有用的一些模塊:
integer 使用整數(shù)運(yùn)算
Diagnostics 輸出較多的診斷信息(警告)
English 允許英名用作系統(tǒng)變量的別名
Env 導(dǎo)入環(huán)境變量的Perl模塊
POSIX POSIX標(biāo)準(zhǔn)(IEEE 1003.1)的Perl接口
Socket 裝載C語(yǔ)言的套接字處理機(jī)制
Perl文檔中有完整的預(yù)定義模塊列表。