.Perl 学习笔记－模块

1.Perl模块介绍

　　2个来源, 一个是随Perl发行版本一同打包, 只要安装了Perl就可以使用;  另一种是需要从CPAN上下载,自己安装.   寻找模块之前, 先检查系统上是否已经安装过了,  比如, 在命令行下输入:  perldoc CGI 就会出现文档说明, 说明已经存在CGI.pm模块了. 

　　安装模块略过.

2.使用简单模块

　　 use File::Basename; #在程序开头用use命令声明  

　　 use File::Basename qw/basename/; #只导入模块中的basename函数 

　　 File::Basename::basename $mypath; #加上模块全称调用 

use File::Spec;

use File::Basename;

$old_name = "/usr/bin/perl";

$dirname = dirname $old_name;

$basename = basename $old_name;

$new_name = File::Spec->catfile($dirname,$basename);

print "$old_name\n";

print "$new_name\n";

rename ($old_name,$new_name) or warn "Can't rename '$old_name' to '$new_name': $!";

3. 使用CGI模块

　　CGI模块有两种风格: 函数接口和面向对象接口, 现在简单讨论前一种.

# 这段代码解析CGI输入, 并以纯文本的方式来显示输入字段的名称和值

use CGI qw(:all); #标签写法, 标示导入全部函数

print header("text/plain"); #Content-Type: text/html; charset=ISO-8859-1

foreach my $param (param()){

    print "$param: ".param($param)."\n";

}

# 这段代码输出HTML格式结果.

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));

}

　　CGI模块还能处理cookie信息, 页面重定向已经多重页面表单等...

4.数据库与DBI(数据库接口)

　　DBI没有内置在Perl中;  不管哪种常见的数据库,都可以使用相同的接口进行操作;  支持对ODBC的驱动操作;   安装DBI之后必须安装相应的DBD(数据库驱动程序) ,可以在CPAN上搜索. DBI是面向对象模块.

use DBI;

# $data_source 指定要连接的数据库信息, 以及使用哪一种DBD作底层交互, 例如对PostgreSQL,驱动器是DBD::Pg模块

my $data_source = "dbi:Pg:dbname=name_of_database"; #PostgreSQL

$dbh = DBI->connect($data_source, $username, $password);

# 连接数据库后可以进行查询操作

$sth = $dbh->prepare("SELECT * FROM foo WHERE bla");

$sth->execute();

@row_ary = $sth->fetchrow_array;

$sth->finish;

# 完成工作后断开连接

$dbh->disconnect();