perl 用sysdba连接oracle数据库

use DBI;
$dbname="test_192.168.1.1";
$user="sys";
$passwd="test";
$dbh="";
$dbh = DBI->connect("dbi:Oracledbname",$user,$passwd,{ora_session_mode=>2}) or die "can't connect to
database ". DBI-errstr;
@data=(1,2,3,4,5,6);
for $new (@data)
{
$sth=$dbh->do("drop TABLESPACE \"test$new\_DATA\""
};
$dbh->disconnect;

#while (@recs=$sth->fetchrow_array) {
#print $recs[0].":".$recs[1].":".$recs[2]."\n";
#print $sth->dump_results();