如何使用 perl DBI 获得输出 "Table created"

Question

有一段代码我想用 Perl DBI 得到输出 "Table created":

use DBI;
use DBD::Oracle qw(:ora_session_modes);

$dbh=DBI->connect( "dbi:Oracle:", "", "", { ora_session_mode =>
      ORA_SYSDBA , RaiseError => 1, PrintError => 1 } );
$dbh->do(qq{  create table test ( customer_id number(10) NOT NULL )    } );

如何从 DBI 获得此输出 "Table created"？

Answer 1

如果查询没有成功执行，打印错误信息。

  $Local_Dbh->do($Query) or print " Unable to execute the query $Local_Dbh->errstr";

如果 table 没有创建，它将 return undef 或 -1 否则 return 像

这样的值

     Result : 0E0

Answer 2

我认为您无法直接从 DBI 获得此答案。 DBI 并不真正关心它在执行什么，它只是将数据传入和传出数据库。只有您（或您编写的代码）知道您运行的语句是 CREATE TABLE 语句。

因此，如果您想打印 TABLE CREATED，甚至 TABLE test CREATED，您必须按照此处其他一些答案的建议检查 return 值和 assemble 消息你自己。

如何使用 perl DBI 获得输出 "Table created"

How can I get output "Table created" with perl DBI

perl

dbi