如何使用Perl获取SQL表上的索引列表？

Question

我如何使用Perl获取Sybase数据库中表的索引列表？目标是将一个表的所有索引“复制”到一个几乎相同的表中。

$dbh->selectarray_ref('sp_helpindex $table') 是我能做的最好的吗？

- foouser

Answer 1

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"语句。

- runrig

---

DBD::Pg 同样实现了这个。 - Dave Rolsky

dbschema.pl现在包含在DBD::Sybase发行版中：http://search.cpan.org/dist/DBD-Sybase - runrig

Answer 2

SELECT i.*
FROM sysobjects o, sysindexes i
WHERE o.name = $name
  AND i.id = o.id

- Quassnoi