简单测试Oracle连接的脚本

最新推荐文章于 2024-07-31 14:10:42 发布

原创最新推荐文章于 2024-07-31 14:10:42 发布 · 740 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#oracle #测试 #user #sql #database

#数据库

收录于

Perl 同时被 2 个专栏收录

17 篇文章

订阅专栏

学习学习再学习

15 篇文章

订阅专栏

本文展示了一个使用Perl脚本连接并从Oracle数据库中获取前10条表名的示例。通过DBI模块实现数据库连接，利用SQL语句提取数据，并展示了数据处理流程。

#!/bin/perl
use DBI;
$dbname = "JSBSS_TEST";
$user   = "oss";
$passwd = "as1a1nf0";
$dbh    = "";
$dbh    = DBI->connect( "dbi:Oracle:$dbname", $user, $passwd )
or die "Can't connect to Oracle database: $DBI::errstr/n";

{

    #==================================
    #选择数据方法1--简单sql
    #==================================
    #连接数据库
    my $sth = $dbh->prepare("select table_name from user_tables where rownum < 10")
      or die "Can't prepare SQL statement: $DBI::errstr/n";

$sth->execute or die "Can't execute SQL statement: $DBI::errstr/n";

    #读取记录数据
    while ( my @recs = $sth->fetchrow_array ) {
        print "@recs/n";
    }
    warn "Data fetching terminated early by error: $DBI::errstr/n"
      if $DBI::err;
}

$dbh->disconnect or warn "Disconnection failed: $DBI::errstr/n";

#断开连接

exit 0;