程嶏清单16-7.txt

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

程序清单16-7：fetchall_ds.pl
#!/usr/bin/perl
#
# connect oracle database demo
# 装载DBI模块
use DBI;       
# 指定用户名和密码
$user = scott;
$password = tiger;
# 连接数据库
my $dbh = DBI->connect(‘DBI:Oracle:’, $user, $password, { RaiseError=>1 } )
          or  die “ Can’t  connect  to  database”. $DBI->errstr;
# 创建语句句柄
my $sth = $dbh->prepare(“
             SELECT name, age, sex 
             FROM  student
            “);
# 执行SQL语句
$sth->execute();
# 调用fetchall_arrayref()，并把结果集存放在一个perl数据结构中
my $array_ref = $sth->fetchall_arrayref( {name=>1, sex=>1} );
# 遍历fetchall_arrayref()所创建的数据结构
foreach my $row (@$array_ref)
{
    print “\tStudent table: name $row->{name}, sex $row->{sex}\n”;
}
exit;