#!/usr/bin/perl
use DBI;
$tns="cuug";
$user="scott";
$passwd="oracle";
$dbh = DBI->connect("dbi:Oracle:$tns","$user","$passwd") or die "can't connect to database ". DBI-errstr;
$sth=$dbh->prepare("select * from emp");
$sth->execute;
while (@recs=$sth->fetchrow_array) {
print $recs[0].":".$recs[1]."\n";
}
$dbh->disconnect;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/27042095/viewspace-753364/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
perl DBD::oracle
下一篇：
perl里的 tr///
请登录后发表评论
登录
全部评论
最新文章
- 限制 ssh 从某些 IP 登录（ authorized_keys ）
- 用dpkg命令制作deb包方法总结
- cygwin 多用户 /bin/bash: Operation not permitted
- 侏罗纪世界 1080 BT
- SQL Server 2008“阻止保存要求重新创建表的更改
- ORA-02396: 超出最大空闲时间, 请重新连接
- 用来察看系统数据库的getent命令
- Oracle_11g_R2_RAC集群系统在_Solaris10_x86_64_上的安装.pdf
- Solaris11.1 Oracle11.2.0.4部署手册
- oracle下数据的排序分组row_number() over()--分析函数，可用于去重
