程嶏清单16-2.txt

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

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