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

发布时间：2020-12-16 06:14:17 所属栏目：大数据来源：网络整理

导读：如何使用Perl获取sybase数据库中表的索引列表？目标是将表中的所有索引“复制”到几乎相同的表中. 是$dbh- selectarray_ref(‘sp_helpindex $table’)我能做的最好吗？解决方法在DBI中有一个statistics_info()方法,但不幸的是,到目前为止我见过的唯一DBD是

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

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

解决方法

在DBI中有一个statistics_info()方法,但不幸的是,到目前为止我见过的唯一DBD是DBD :: ODBC.所以,如果你使用ODBC(更新：或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 = 2n" 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”语句.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!