程嶏清单16-3.txt

< linux网络编程工具>>配套源码

程序清单16-3：connectdb2.pl
#!/usr/bin/perl
#
# connect oracle database demo
# 装载DBI模块
use DBI;       
# 指定用户名和密码
$user = scott;
$password = tiger;
# 第一次连接数据库
my $dbh1= DBI->connect(‘DBI:Oracle:’, $user, $password)
          or  die “ Can’t  connect  to  database”. $DBI->errstr;
#第二次连接数据库
my $dbh2= DBI->connect(‘DBI:Oracle:’, $user, $password)
          or  die “ Can’t  connect  to  database”. $DBI->errstr;
exit;