Perl语言入门第十一章

1、2016 第十一章 Perl模块LOREM IPSUM DOLOR LOREM 寻找模块01使用简易模块03 安装模块02寻找模块 Perl模块来源：一种是随Perl发行版本一同打包的，安装perl后就可使用；另一种需要从CPAN下载，自己安装。 CPAN：Perl综合典藏网，在世界各地都有服务器与镜像站点，包含了上千个可用的开源Perl模块。CPAN Search网站： 寻找模块前，先检查系统上是否已安装过。Perl自带的cpan命令可以创建autobundle文件，它会列出所有已安装的模块及版本号：$ cpan -a安装模块 安装流程：下载模块文件

2、包解压后在shell中运行一系列编译安装命令。方法如下：1.模块使用MakeMaker封装流程： $ perl Makefile.PL $ make install 指定安装目录： $ perl Makefile.PL INSTALL_BASE=/Users/fred/lib2.用Perl自带的CPAN.pm，安装命令： $ perl -MCPAN -e shell安装模块3.ActiveState 公司发行的Perl版本，可以使用Perl Package Manager（简称PPM）来安装模块。4.使用Perl自带的cpan安装： $ cpan Module:CoreList LWP CGI

3、:Prototype5.下载cpanm脚本后，输入想要安装的模块名称即可： $ cpanm DBI WWW:Mechanize安装到自己的目录 用local:lib 模块安装新模块到自己的用户目录下，该模块需自行下载。安装命令： $ perl -Mlocal:lib export PERL_LOCAL_LIB_ROOT=/Users/fred/perl5; export PERL_MB_OPT=-install_base/Users/fred/perl5; export PERL_MM_OPT=INSTALL_BASE=/Users/fred/perl5; export PERL5LIB=.;

4、 exprot PATH=/Users/brian/perl5/bin:$PATH; $ cpan -I Set:Crossproduct使用简易模块例：取出文件的基名而不包括目录 my $name =/usr/local/bin/perl; (my $basename = $name) = s#.*/#;隐含问题：1.Unix上的文件或目录名称可能会包含换行符。点号（.）无法匹配换行符，故需要用模式的/s加以修正。2.这段代码仅仅考虑了Unix下的情况，没有考虑其他系统（比如使用反斜线或冒号）的情况。3.Perl自带了许多标准模块，我们可以直接下载使用。（一）File:Basename模块b

5、asename函数： use File:Basename; my $name = /usr/local/bin/perl; my $basename = basename $name;功能：（1）从文件全名里取出基名。该模块会判断你当前的操作系统，并且使用该系统默认的文件命名规则。（2）该模块也可将文件名和扩展分开，或改变默认的文件名规则。其他函数：dirname函数可以从文件全名里取得目录名称。仅选用模块中的部分函数 若程序里现有的子程序名和模块里的某个函数同名，则可以上导入列表来指明要导入的函数清单。 use File:Basename qw/ basename /; #只引入basena

6、me函数 use File:Basename qw/ /; #不导入新函数 use File:Basename( ); # 不导入新函数例： use File:Basename qw/ /; #不引入任何新函数 my $betty = &dirname($wilma); #使用自己的子&dirname my $name = /usr/local/bin/perl; my $dirname = File:Basename:dirname $name; #使用模块函数 File:Spec模块功能：（1）可以用来操作文件说明，即文件名、目录名及文件系统里的其他名称。（2）它也可以在运

7、行时判断操作系统的类型，并且总是采用正确规则。调用方法例： use File:Spec; my $new_name = File:Spec - catfile($dirname,$basename); rename ($old_name,$new_name) or warn Cant rename $old_name to $new_name:$!;Path:Class 模块功能：处理不同系统上的文件名规则例： my $dir = dir (qw(Users fred lib); my $subdir = dir -subdir(perl5); #Usrs/fred/lib/perl5 my

8、$parent = $dir -parent; #Usrs/fred my $windir = $dir -as_foreign(W32); #Usrsfredlib CGI.pm模块导出标签：:all，用来指定一组要导出的函数而非一个。例： #！usr/bin/perl use CGI qw(:all); print header(text/plain); foreach $param (param() print $param:.param($param).n; 数据库和DBI模块 DBI（Database Interface，数据库接口）模块需要自行下载安装。安装完DBI之后，还需要安装

9、DBD（Database Driver,数据库驱动程序）。 use DBI; $dbh = DBI -connect($data_source,$username,$password);准备查询、进行查询、读取查询结果操作： my $sth = $dbh -prepare(SELECT*FROM foo WHERE bla); $sth -execute(); my row_ary = $sth -fetchrow_array; $sth -finish; $dbh -disconnect(); #断开与数据库的连接处理日期和时间的模块 DateTime模块：可以处理复杂的时区、日期计算及其他

10、事情。 把系统中以秒数表示的当前时间转换成DateTime对象，获取该日期的相关信息。例： my $dt = DateTime -from_epoch(epoch = time); printf %4d%02d%02d,$dt -year,$dt -month,$dt -day;格式化输出时间字符串的方法： print $dt -ymd; #2016-03-16 print $dt -ymd(/); #2016/03/16 print $dt -ymd(); #20160316例： my $dt1 = DataTime -new( year =1987, month =12, day =18, );my $dt2 = DataTime -new( year =2011, month =5, day =1， );my $