连接数据库是一个很常见也很必须的操作。先将我用到的总结一下。
　　1. Perl 连接数据库
　　Perl 连接数据库的思路都是：
　　1）使用DBI模块； 2）创建数据库连接句柄dbh； 3）利用dbh创建语句句柄sth； 4）利用sth执行sql语句； 5）利用sth处理数据。
　　如连接Oracle：
my $dbh=DBI->connect("DBI:Oracle:host=$hostname;sid=$sid"，$username，$passwd);
### deal with multi return value
my $sql=qq(select uid_der from wbphish_usr_der);
$sth->execute();
my $sth=$dbh->prepare($sql);
$sth->execute() or die;
my @uid;
while(my @row=$sth->fetchrow_array)
{   push @uid，$row[0];}
### deal with single return value
my $sql="SELECT max(DEMO) FROM phishing"
$sth->execute();
my $sth=$dbh->prepare($sql);
$sth->execute() or die;
my $id=$dbh->selectrow_array($sql);
　　其中host是数据库server的ip地址，sid为连接的数据库。
　　如连接SQL Server：
my $dbh = DBI->connect("dbi:ODBC:driver={SQL Server};Server=127.0.0.1;Database=$dbs;UID=$uid;PWD=$pwd");
my $sth = $dbh->prepare($sql);
$sth->execute();
　　其中Server是server的ip地址，这里是local地址，Database为连接的数据库。