如何获取对数据库运行的查询的输出

Question

当我们执行查询时，我们可以借助

print OUT "$DBI::errstr";

但是我们如何才能获得成功执行时的查询结果，比如

table TRN_STLMNT_ created

Answer 1

在使用DBD::mysql和DBD::Sybase数据库驱动程序和DBI模块编写了一些脚本之后，我发现判断执行是否成功的最好方法是在DBI数据库句柄上启用引发错误的功能，如果没有引发错误，则可以手动打印出"table TRN_ST created“消息。

my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost",
                     "joe", "joe's password",
                     {'RaiseError' => 1 });

http://search.cpan.org/~capttofu/DBD-mysql-3.0008/lib/DBD/mysql.pm http://search.cpan.org/~mewp/DBD-Sybase-1.15/Sybase.pm