Perl DBI模块

最新推荐文章于 2020-07-08 13:52:58 发布

scan724

最新推荐文章于 2020-07-08 13:52:58 发布

阅读量590

点赞数

分类专栏： Perl DBI

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/42869983

版权

Perl DBI 专栏收录该内容

54 篇文章 31 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客展示了如何利用Perl的DBI模块连接Oracle数据库并执行SQL查询。首先，通过提供数据库名、用户名和密码建立连接。接着，分别演示了如何选择特定字段和全字段查询的SQL语句，并打印查询结果。示例包括查询`user_tables`表的特定字段，以及从`T100`表中获取所有列的示例。

摘要由CSDN通过智能技术生成

一: select 某些字段:

[oracle@jhoa dbi]$ cat 1.pl 
use DBI; 
my $dbName = 'orcl';  
my $dbUser = 'test';  
my $dbUserPass = 'test';  
my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die "can't connect to database " ;
my $hostSql = qq{select table_name,tablespace_name,status from user_tables};  
 

my ($table_name, $tablespace_name, $status);  
my $selStmt = $dbh->prepare($hostSql);  
$selStmt->bind_columns(undef, \$table_name, \$tablespace_name, \$status);  
$selStmt->execute();  
while( $selStmt->fetch() ){  
	print "$table_name\t\t   $tablespace_name\t\t$status\n";  
}  
$selStmt->

了解本专栏