Perl模块用法指南

本文和大家重点讨论一下Perl模块的应用，多数大型程序都分割成多个部件，每一部件通常含有一个或多个子程序及相关的变量，执行特定的一个或多个任务。集合了变量和子程序的部件称为程序Perl模块。

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模块列表。
注：世界各地的Perl5用户写了许多有用的Perl模块，CPAN(ComprehensivePerlArchiveNetwork)的Perl文档有其完整的列表。关于CPAN的更多信息见其网址：http://www.perl.com/perl/CPAN/README.html。

本文名称：Perl模块用法指南
本文网址：http://www.shufengxianlan.com/qtweb/news18/330868.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容