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

Question

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

Answer 1

诀窍是使用你可能在安装Postgres时使用的'postgres'数据库（如果你没有'postgres'数据库，你可能知道为什么）。 如果以“postgres”用户身份连接到“postgres”数据库，则可以发出create database SQL命令，如下所示：

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

（您可能还会以编程方式创建一个postgreSQL数据库 ，它将在更高级别上解决此问题。）