我如何使用Perl获取Sybase数据库中表的索引列表?目标是将一个表的所有索引“复制”到一个几乎相同的表中。
$dbh->selectarray_ref('sp_helpindex $table')
是我能做的最好的吗?
DBI中有一个statistics_info()方法,但不幸的是,到目前为止我所见过它实现的唯一DBD是DBD::ODBC。因此,如果您使用ODBC(更新:或PostgreSQL!),那么您很幸运。否则,对于Sybase,sp_helpindex(或sysindexes表)是最好的选择。
这是我在自己的OO模块中用于Sybase的代码(仅返回唯一索引,除非all_indexes参数为真):
{
my $sql_t = <<EOT;
select
sysindexes.name,
index_col(object_name(sysindexes.id), sysindexes.indid, syscolumns.colid) col_name
from sysindexes, syscolumns
where sysindexes.id = syscolumns.id
and syscolumns.colid <= sysindexes.keycnt
and sysindexes.id = object_id(%s)
EOT
sub index_info {
my ( $self, $table, $all_indexes ) = @_;
my $dbh = $self->{DBH};
my $sql = sprintf $sql_t, $dbh->quote($table);
$sql .= "and sysindexes.status & 2 = 2\n" unless $all_indexes;
my $sth = $dbh->prepare($sql);
$sth->execute();
my @col_names = @{$sth->{NAME_lc}};
my %row; $sth->bind_columns(\@row{@col_names});
my %ind;
while ($sth->fetch()) {
if ( $row{col_name} ) {
push @{$ind{$row{name}}}, lc($row{col_name});
}
}
return unless %ind;
return \%ind;
}
}
如果您的目标只是复制索引,也许您应该获取dbschema.pl实用程序(使用Sybase::DBlib)。它将为您生成"CREATE INDEX"语句。
SELECT i.*
FROM sysobjects o, sysindexes i
WHERE o.name = $name
AND i.id = o.id