求助：使用Perl DBI连接PostgreSQL，能否执行psql查询？

首先得明确一点：你提到的“psql查询”如果是指psql客户端里的那些反斜杠元命令（比如\l、\d、\dt这类），那Perl DBI是没法直接执行的——因为这些命令是psql工具自己解析的，不属于标准SQL范畴，PostgreSQL数据库本身并不认识它们。

不过有两种方式可以达到类似效果：

1. 将psql元命令转换为等价的SQL查询 #

PostgreSQL的系统信息都存在pg_catalog或者information_schema这些系统库里，psql的元命令本质也是查询这些系统表后格式化输出。你可以直接用DBI执行对应的SQL来获取数据：

• 比如psql的\l（列出所有数据库）等价于：

  my $sth = $dbh->prepare("SELECT datname FROM pg_database;");
  $sth->execute();
  while (my ($db_name) = $sth->fetchrow_array()) {
      print "$db_name\n";
  }
  

• 再比如\d tablename（查看表结构）可以用：

  my $table = 'your_table';
  my $sth = $dbh->prepare(
      "SELECT column_name, data_type 
       FROM information_schema.columns 
       WHERE table_name = ?;"
  );
  $sth->execute($table);
  while (my ($col, $type) = $sth->fetchrow_array()) {
      print "$col: $type\n";
  }
  

你之前查询pg_settings的代码其实是可行的，但注意语法错误：prepare("select*from pg_settings;);里引号没闭合，应该改成prepare("select * from pg_settings;");，而且fetchrow_array()会返回每行的所有字段，如果你只取第一个元素，拿到的是name列的值，要是想获取完整的设置项，用fetchrow_hashref()会更直观：

my $sth = $dbh->prepare("select name, setting from pg_settings;");
$sth->execute();
while (my $row = $sth->fetchrow_hashref()) {
    print "$row->{name}: $row->{setting}\n";
}

2. 通过Perl调用系统命令执行psql #

如果你确实需要直接执行psql的元命令，可以用Perl的系统调用功能，比如qx//或者system()，举个例子：

# 执行psql的\l命令并获取输出
my $psql_output = qx(psql -U your_username -d your_dbname -c "\\l");
print $psql_output;

这种方式需要确保系统里安装了psql，并且要处理好连接参数（比如密码可以通过环境变量PGPASSWORD或者pgpass文件设置，避免明文写在代码里），但这种方式不如直接用DBI操作SQL灵活，也不容易处理返回的数据。

总结一下：优先用第一种方式，把psql的元命令转换成对应的SQL查询，用DBI执行；如果有特殊需求再考虑第二种系统调用的方式。

内容的提问来源于stack exchange，提问作者achahbar