使用Perl管理Oracle数据库

1、连接数据库

#!/usr/bin/perl
use strict;
use DBI;

my $tnsname = "DB234";
my $username = "SCOTT";
my $password = "TIGER";

my $dbh = DBI->connect("dbi:Oracle:$tnsname",$username,$password) or die "Cannot connect db : $DBI::errstr\n";

print "I have connect to the Oracle database!\n";

$dbh->disconnect or warn "DB disconnect failed:$DBI::errstr\n";

connect oracle database