perl如何执行DDL语句

aboy11

1. use DBI;
   
2. 
   
3. my $dbname="mydb";
   
4. my $dbuser="user";
   
5. my $dbpwd="pwd";
   
6. my $dbh="";
   
7.          $dbh = DBI->connect("dbi:Oracle:$dbname",$dbuser,$dbpwd) || die "与数据库建立连接失败!\n错误信息:" . DBI-errstr;
   
8. my $sql="select * from teststr;";
   
9. 
   
10. my $sth = $dbh->prepare($sql);
    
11. $sth->execute();

复制代码

我用上面的代码连接oracle,
如果我想做DDL操作时候,请教高手,应该如何实现,比如,我想执行 "DESC TESTSTR;"

a_789_123

use DBI;

my $dbname="mydb";
my $dbuser="user";
my $dbpwd="pwd";
my $dbh="";
         $dbh = DBI->connect("dbi:Oracledbname",$dbuser,$dbpwd) || die "与数据库建立连接失败!\n错误信息:" . DBI-errstr;
my $sql="insert into ....values()";

my $sth = $dbh->prepare($sql);
$sth->execute();