注意：连接时候使用SID指定的database，所以没有在连接中指定database.

#!/usr/bin/perl use strict; use warnings; use DBI; my $db_name="geneva_admin"; my $db_passwd="geneva_admin"; my $dbh=DBI->connect("dbi:Oracle:","$db_name","$db_passwd") or die "Can't connect to oracle database:$DBI::errstrn"; my $sth=$dbh->prepare("select a,b from a_tmp where a=2") or die "Can't prepare SQl prepare:$DBI::errstrn"; $sth->execute or die "Can't execute:$DBI::errstrn"; while (my @row = $sth->fetchrow_array()){ my ($a,$b) = @row; print "1..$a=$a,$b=$bn"; } $sth->finish(); my $row=3; my $sql="select a,b from a_tmp where a = "; $sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstrn"; $sth->execute($row) or die "Can't execute:$DBI::errstrn"; while (my @row = $sth->fetchrow_array()){ my ($a,$b) = @row; print "2..$a=$a,$b=$bn"; } $sth->finish(); my $row_a=3; my $row_c=0; $sql="select a,b from a_tmp where a = ? and c = "; $sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstrn"; $sth->execute($row_a,$row_c) or die "Can't execute:$DBI::errstrn"; while (my @row = $sth->fetchrow_array()){ my ($a,$b) = @row; print "3..$a=$a,$b=$bn"; } $sth->finish(); for $row(1,2,3){ $sql="select a,b from a_tmp where a = "; $sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstrn"; $sth->execute($row) or die "Can't execute:$DBI::errstrn"; while (my @row = $sth->fetchrow_array()){ my ($a,$b) = @row; print "4..$a=$a,$b=$bn"; } } $sth->finish(); #for $row(1,2,3){ #$sql="insert into a_tmp # values ("; #$sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstrn"; #$sth->execute($row,$row+1,$row+2) or die "Can't execute:$DBI::errstrn"; #} ##$dbh->commit; #$sth->finish(); #$sql="insert into a_tmp # values (100,30,2)"; #$sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstrn"; #$sth->execute or die "Can't execute:$DBI::errstrn"; ##$dbh->commit; #$sth->finish(); for $row(1,2,3){ $sql="update a_tmp set b = ? , c = ? where a = "; $sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstrn"; $sth->execute($row+100,$row+50,$row) or die "Can't execute:$DBI::errstrn"; } #$dbh->commit; $sth->finish(); for $row(1,2,3){ $sql="delete from a_tmp where c=2"; $sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstrn"; $sth->execute or die "Can't execute:$DBI::errstrn"; } #$dbh->commit; $sth->finish(); $dbh->do("insert into a_tmp values (1,1,1)") or die "$DBI::errstrn"; $dbh->do("delete from a_tmp where c=51") or die "$DBI::errstrn"; #$dbh->commit; $sth->finish(); $dbh->disconnect;