明辉站/网站教程/内容

Perl教学(14)Perl5的包与模块之5

网站教程2024-02-04 阅读
[摘要]2、导入模块将模块导入你的Perl程序中使用use语句,如下句导入了Mymodule模块:use Mymodule;这样,模块Mymodule中的子程序和变量就可以使用了。取消导入模块使用no语句,如下句取消了Mymodule模块的导入:no Mymodule;下面看一个导入模块和取消导入的例子,...
2、导入模块
将模块导入你的Perl程序中使用use语句,如下句导入了Mymodule模块:
use Mymodule;
这样,模块Mymodule中的子程序和变量就可以使用了。
取消导入模块使用no语句,如下句取消了Mymodule模块的导入:
no Mymodule;
下面看一个导入模块和取消导入的例子,使用integer模块要求所有数字运算基于整数,浮点数在运算前均被转化为整数。

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语句出现在语句块中,则只在该块的有效范围内起作用,如:

use integer;
$result1 = 2.4 + 2.4;
if ($result1 == 4) {
no integer;
$result2 = 3.4 + 3.4;
}
$result3 = 4.4 + 4.4;
结果输出如下:

4
6.8
8
这里,no语句只在if语句中有效,出了if语句仍使用integer模块,因此4.4在做加法前被转化成了4。
3、预定义模块
Perl 5提供了许多有用的预定义模块,可以用use导入和no语句取消。下面是库中最有用的一些模块:

integer 使用整数运算
Diagnostics 输出较多的诊断信息(警告)
English 允许英名用作系统变量的别名
Env 导入环境变量的Perl模块
POSIX POSIX标准(IEEE 1003.1)的Perl接口
Socket 装载C语言的套接字处理机制

Perl文档中有完整的预定义模块列表。

……

相关阅读