Perl对oracle数据库的处理

#!/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'};