- Perl的模块包括两种：一种是随Perl发行版本一同打包的，另一种则需要从CPAN下载，然后安装。（访问https://metacpan.org/）安装模块的方法就是从网上下载压缩包，解压缩后在shell中执行一些命令，具体命令取决于模块所支持的安装方式。
一种是使用模块MakeMaker(ExtUtils::MakeMaker)：
perl Makefile.PL
make install
perl Makefile.PL还有一个可选参数PREFIX=/usr/...用来指定安装目录
另一种安装方式是使用模块Module::Build:
perl Build.PL
./Build install
还有一种方式支持自动安装依赖模块，那就是使用Perl自带的CPAN.pm(pm表示Perl Module，表示Perl自带的模块，以区分第三方模块)：
perl -MCPAN -e shell
install 模块名
最近还有一种方式是使用cpanminus，首先需要安装cpanminus，然后在命令行执行
cpanm 模块名
- 这里介绍几种Perl模块
File::Basename:作用是从文件的全名（包含了路径信息）中取出真正的文件名，使用Perl模块的第一步是查看模块的文档perldoc File::Basename，在程序中使用模块，只需要声明use File::Basename，然后就可以使用模块提供的函数
demo11-1
#!/usr/bin/perl
use File::Basename
chomp($fullname = `pwd`);
$dirname = dirname $fullname;
$basename = basename $fullname;
print "Current directory:$dirname Filename:$basename\n";
./demo11-1
Current directory:/home/zhujingjie/workspace/LearningPerl Filename:ch11
但如果程序中已经定义了同名的子程序，则直接使用模块可能导致冲突，这时可以使用“导入列表”（import list）use File::Basename qw/dirname, basename/跟在模块名后面的列表指定了需要导入的函数名称，如果没有显式的指定导入列表，则会使用模块默认的导入列表（模块的默认导入列表也不一定会导入模块内的所有函数）。当导入列表为空时use File::Basename ()则不会导入函数。导入函数的目的是使用简短的名称来使用函数，所以对于没有导入的函数，依然可以通过全名来使用模块提供函数。
demo11-2:
#!/usr/bin/perl
use File::Basename (dirname);
chomp($fullname = `pwd`);
$dirname = dirname $fullname;
$basename = File::Basename::basename $fullname;
print "Current directory:$dirname Filename:$basename\n";
即使没有导入basename函数，也可以通过File::Basename:basename来使用
./demo11-2
Current directory:/home/zhujingjie/workspace/LearningPerl Filename:ch11
-
File::Spec是一个面向对象OO的模块，它提供的是方法而不是函数，使用面向对象模块有一点不同，首先不需要导入列表，因为它不提供函数也不会导入任何函数。其次，使用模块提供的方法需要全名
File::Spec->catfile()然后用瘦箭头->指定方法名。
使用File::Spec提供的catfile将文件夹和文件名组成文件标识符：
demo11-3:
#!/usr/bin/perl
use File::Spec;
if(@ARGV != 2){
die "Usage:./demo11-3 <old_filename> <new_filename>";
}
chomp($dir = `pwd`);
$old_name = File::Spec->catfile($dir,$ARGV[0]);
$new_name = File::Spec->catfile($dir,$ARGV[1]);
rename($old_name, $new_name)
or warn "Can't rename '$old_name' to '$new_name':$!\n";
这个程序可以重命名当前路径下的文件
- Perl最广泛的用途就是充当CGI，CGI.pm模块可以完成大部分功能，CGI.pm同时提供函数接口和面向对象接口。
demo11-4:
#!/usr/bin/perl
use CGI qw(:all);
print header("text/plain");
foreach my $param ( param() ){
print "$param: ". param($param). "\n";
}
start_html()可以生产HTML文档开头的部分，h1()可以输出h1标记内的内容
demo11-5:
#!/usr/bin/perl
use CGI qw(:all);
print header()
start_html("This is the page title"),
h1( "Input parameters");
my $list_items;
foreach my $param ( param() ){
$list_items .= li("$param:" . param($param) );
}
print ul($list_items);
print end_html();
- DBI数据库接口（https://dbi.perl.org/）没有内置于Perl发行版中，但如果程序需要连接数据库，那就必不可少。DBI隔离了不同数据库的差异，它同时也是一个面向对象OO的模块。安装完DBI之后，还需要安装DBD（Database Driver）程序才能连接数据库。
想要连接数据库，需要先use DBI;然后调用DBI的connect()方法：
use DBI;
$dbh = DBI->connect($data_source, $username, $password);
$data_source制定了要链接的数据库信息以及要使用的DBD，比如对PostgreSQL就是DBD::Pg:
my $data_source = "dbi:Pg:dbname=name_of_database";
连上数据库以后，就可以开始准备查询，执行查询以及读取查询结果等操作：
$sth = $dbh->prepare("SQL Statement...");
$sth->execute();
@row_ary = $sth->fetchrow_array;
$sth->finish;
完成工作后，断开与数据库的连接:
$dbh->disconnect();
