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

Question

How can I create a Postgres database from Perl? This is not documented in the Perl Postgres DBI driver DBD::Pg (or pretty much anywhere else). I need to be able to create a scratch database from my program, rather than having to use psql or pgAdmin to create the database.

Answer 1

The trick is using the 'postgres' database that you will likely have with your installation of Postgres (if you don't have a 'postgres' database, you probably know why). If you connect as user 'postgres' to the 'postgres' database, you can then issue then create database SQL command, like so:

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

(You might also look at create a postgreSQL database programmatically , which covers this issue at a higher level.)