Perl对oracle数据库的处理

最新推荐文章于 2021-04-12 11:35:47 发布

liuweichuan

最新推荐文章于 2021-04-12 11:35:47 发布

阅读量852

点赞数

分类专栏： perl 文章标签： oracle 数据库 perl sql oracle11g qq

本文链接：https://blog.youkuaiyun.com/liuweichuan/article/details/7693019

版权

perl 专栏收录该内容

38 篇文章

订阅专栏

本文介绍了使用Perl语言连接和操作Oracle数据库的方法，包括断开连接的示例代码。适合熟悉Perl和Oracle数据库的开发者参考。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!/usr/bin/perl
#perl script used to connect to Oracle
use strict;
use DBI;
#声明数据连接所需的参数
my $ip="127.0.0.1";     #oracle所在机器的ip
my $sid = "orcl";       #数据库实例
my $username = "liu"; #连接数据库的用户名
my $password = "weichuan"; #连接数据库的密码

#创建连接
my $dbh=DBI->connect("dbi:Oracle:host=$ip;sid=$sid", $username, $password) or die "Cannot conenct oracle11g: $DBI::errstr\n";

#声明变量
my $deptno = 99;
my $dname = "denver";
my $loc = "test";

#插入数据
my $sql = qq{INSERT INTO dept VALUES(?,?,?)};
my $sth = $dbh->prepare($sql);
$sth->execute($deptno, $dname,$loc);

#删除数据
my $sql = qq{DELETE FROM dept WHERE loc='$loc'};
my $sth = $dbh->prepare($sql);
#$sth->execute();
print "--I have deleted the record!\n";

#查询数据
my $sql = qq{SELECT deptno, dname, loc FROM dept};
my $sth = $dbh->prepare($sql);
$sth->execute();
#my ($pid, $pname); #declare columns
$sth->bind_columns(undef, \$deptno, \$dname, \$loc);
print "The results are:\n\n";
while ( $sth->fetch() ) { #fetch rows from DataBase
        print "ID:$deptno, --- NAME:$dname, --- LOC:$loc\n";
}
$sth->finish();

#修改数据
my $loc = "newddd";
my $sql = qq{update dept set loc='$loc' where deptno=$deptno};
my $sth = $dbh->prepare($sql);
$sth->execute();

#断开连接
$dbh->disconnect or warn "DB disconnect failed: $DBI::errstr\n";

print "Disconnected from Oracle databae!\n";

注意：转载需要注明出处和作者，作者：No. Liu