如何在Perl中创建Postgres数据库？

Question

如何从Perl创建Postgres数据库？ Perl Postgres DBI驱动程序DBD::Pg（或其他任何地方）都没有记录这一点。我需要能够从我的程序创建一个临时数据库，而不必使用 psql 或 pgAdmin 来创建数据库。

Answer 1

诀窍是使用＆＃39; postgres＆＃39;您可能会安装Postgres的数据库（如果您没有＆＃39; postgres＆＃39;数据库，您可能知道原因）。如果您以用户身份连接“postgres”＆＃39;到了＆＃39; postgres＆＃39;然后，您可以发出 create database SQL命令，如下所示：

my $dbh = DBI->connect("dbi:Pg:dbname=postgres", "postgres");
$dbh->do('create database "Scratch-School"');

（您也可以查看create a postgreSQL database programmatically，其中涵盖了更高级别的此问题。）