Question

我尝试在perl中使用\ d命令，这就是我得到的

DBD :: Pg :: st执行失败：ERROR：语法错误在“d”处或附近

这是我的代码

#!/usr/bin/perl

use DBI;

$myConnection = DBI->connect("DBI:Pg:dbname=test;host=localhost","postgres", "pass123");

$query = $myConnection->prepare("\d");
$result = $query->execute();


while(my @row = $sth->fetchrow_array()) {
      print "ID = ". $row[0] . "\n";
}

$myConnection->disconnect();

Answer 1

最简单，最便携的方法是使用table_info函数。

Answer 2

如果只需要表或视图的列表，则可以使用

my @tables = $dbh->tables();

您还可以将列表限制为特定的架构。例如，仅获取public模式中的表，而不获取pg_catalog和information_schema表：

my @tables = $dbh->tables(undef, 'public');

有关详细信息，请参见https://metacpan.org/pod/DBD::Pg#tables。

有关表的更多信息，请按照Laurenz' answer的建议使用table_info

如何使用Perl显示Postgres表

2 个答案: