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

概述如何使用Perl获取sybase数据库中表的索引列表？目标是将表中的所有索引“复制”到几乎相同的表中. 是$dbh-> selectarray_ref(‘sp_helpindex $table’)我能做的最好吗？ 在DBI中有一个statistics_info()方法,但不幸的是,到目前为止我见过的唯一DBD是DBD :: ODBC.所以,如果你使用ODBC(更新：或PostgreSQL！),你很 如何使用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_namefrom sysindexes,syscolumnswhere sysindexes.ID = syscolumns.ID  and syscolumns.colID <= sysindexes.keycnt  and sysindexes.ID = object_ID(%s)EOTsub 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”语句.

总结

以上是内存溢出为你收集整理的如何使用Perl获取SQL表上的索引列表？全部内容，希望文章能够帮你解决如何使用Perl获取SQL表上的索引列表？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。