Как я могу получить список индексов в таблице SQL, используя Perl?

Question

Как я могу получить список индексов в таблице в моей базе данных sybase, используя Perl? Цель состоит в том, чтобы «скопировать» все индексы из таблицы в почти идентичную таблицу.

Является ли $dbh->selectarray_ref('sp_helpindex $table') лучшим, что я могу сделать?

Answer 1

В DBI есть метод statistics_info (), но, к сожалению, единственная реализованная мной до сих пор DBD - это DBD :: ODBC. Так что если вы используете ODBC (update: или PostgreSQL!), Вам повезло. В противном случае sp_helpindex (или таблица sysindexes) примерно так же хорош, как и для Sybase.

Вот что я использовал для Sybase (в моем собственном модуле OO - он возвращает только уникальные индексы, если аргумент all_indexes не равен true):

{
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".

Answer 2

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