程嶏清单16-5.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 16 行

程序清单16-5：prepare.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;
# 创建语句句柄
 my $sth = $dbh->prepare(‘SELECT * FROM student’);
exit;