重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

Perl如何使用模块

这篇文章主要为大家展示了“Perl如何使用模块”,内容简而易懂,条理清晰,希望能够帮助大家解决疑惑,下面让小编带领大家一起研究并学习一下“Perl如何使用模块”这篇文章吧。

创新互联公司成都网站建设按需求定制设计,是成都网站制作公司,为葡萄架提供网站建设服务,有成熟的网站定制合作流程,提供网站定制设计服务:原型图制作、网站创意设计、前端HTML5制作、后台程序开发等。成都网站推广热线:13518219792

Perl模块

1、创建Perl模块

Perl5中用包来创建Perl模块,方法是创建包并将之存在同名的文件中。例如,名为Mymodult的包存贮在文件Mymodult.pm中(扩展名.pm表示PerlModule)。下例的Perl模块Mymodult含有子程序myfunc1和myfunc2及变量$myvar1和$myvar2。

1:#!/usr/local/bin/perl  2:  3:packageMymodule;  4:requireExporter;  5:@ISA=qw(Exporter);  6:@EXPORT=qw(myfunc1myfunc2);  7:@EXPORT_OK=qw($myvar1$myvar2);  8:  9:submyfunc1{  10:$myvar1+=1;  11:}  12:  13:submyfunc2{  14:$myvar2+=2;  15:}

第3~7行是标准的PerlPerl模块定义方式。第3行定义包,第4行包含内置PerlPerl模块Exporter,6、7行进行子程序和变量的输出以与外界联系。第6行创建名为@EXPORT的特殊数组,该数组中的子程序可以被其它程序调用,这里,myfunc1和myfunc2可以被访问。其它任何在Perl模块中定义但没有赋给数组@EXPORT的子程序都是私有的,只能在Perl模块内部调用。第7行创建另一个名为@EXPORT_OK的特殊数组,其中含有可被外部程序访问的变量,这里含有$myvar1和$myvar2。

2、导入Perl模块

将Perl模块导入你的Perl程序中使用use语句,如下句导入了MymodulePerl模块:
useMymodule;
这样,Perl模块Mymodule中的子程序和变量就可以使用了。
取消导入Perl模块使用no语句,如下句取消了MymodulePerl模块的导入:
noMymodule;
下面看一个导入Perl模块和取消导入的例子,使用integerPerl模块要求所有数字运算基于整数,浮点数在运算前均被转化为整数。

1:#!/usr/local/bin/perl  2:  3:useinteger;  4:$result=2.4+2.4;  5:print("$result\n");  6:  7:nointeger;  8:$result=2.4+2.4;  9:print("$result\n");

程序输出如下:

$program
4
4.8
$
如果use或no语句出现在语句块中,则只在该块的有效范围内起作用,如:

useinteger;  $result1=2.4+2.4;  if($result1==4){  nointeger;  $result2=3.4+3.4;  }  $result3=4.4+4.4;

结果输出如下:

4
6.8
8
这里,no语句只在if语句中有效,出了if语句仍使用integerPerl模块,因此4.4在做加法前被转化成了4。

3、预定义Perl模块

Perl5提供了许多有用的预定义Perl模块,可以用use导入和no语句取消。下面是库中最有用的一些Perl模块:

Perl如何使用模块

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

以上是“Perl如何使用模块”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!


文章名称:Perl如何使用模块
URL链接:http://cqcxhl.com/article/gochig.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP