用perl做runstats遇上的问题

显示全部楼层 · 2014-3-10 14:09:19

想用perl来写个runstats的脚本，测试的时候就挂了

代码这么写的:
*************************************************************************************************
#!/usr/bin/perl -w
use strict;
select STDERR; $|=1;
select STDOUT; $|=1;

use DBI;

my $database = "sample";
my $user = "KYLIN";
my $password = "KYLIN";

my $dbh = DBI->connect("dbi

B2:${database}", $user, $password, {AutoCommit =>0})

|| die "Can't connect to $database: $DBI::errstr";

my $sql=qq(RUNSTATS ON TABLE KYLIN.SCORES AND DETAILED INDEXES ALL);

$dbh->do($sql);

$dbh->commit();
$dbh->disconnect
|| die $DBI::errstr;
**************************************************************************************************
得到的错误是：
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
DBD:

B2::db do failed: [IBM][CLI Driver][DB2/NT] SQL0104NAn unexpected token
"AND" was found following "ON TABLE KYLIN.TEST".Expected tokens may include:
"JOIN ".SQLSTATE=42601
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

自己google了一下，也找了一些dbi的文档看，没有看出个道道来。
哪位能给个hint让我走出迷宫吗？谢谢啦

千问 · 2014-3-10 14:09:19

RUNSTATS ON TABLE db2user.employee FOR detailed INDEXES ALL