Perl连接PostgreSQL数据库

PostgreSQL可以使用Perl DBI模块与Perl集成，Perl DBI模块是Perl编程语言的数据库访问模块。 它定义了一组提供标准数据库接口的方法，变量和约定。

以下是在Linux / Unix机器上安装DBI模块的简单步骤：

$ wget http://search.cpan.org/CPAN/authors/id/T/TI/TIMB/DBI-1.625.tar.gz
$ tar xvfz DBI-1.625.tar.gz
$ cd DBI-1.625
$ perl Makefile.PL
$ make
$ make install

Shell

如果您需要安装DBI的SQLite驱动程序，那么可以安装如下：

$ wget http://search.cpan.org/CPAN/authors/id/T/TU/TURNSTEP/DBD-Pg-2.19.3.tar.gz
$ tar xvfz DBD-Pg-2.19.3.tar.gz
$ cd DBD-Pg-2.19.3
$ perl Makefile.PL
$ make
$ make install

Shell

在开始使用Perl连接PostgreSQL接口之前，请在PostgreSQL安装目录中找到pg_hba.conf文件，并添加以下行：

# IPv4 local connections:
host    all         all         127.0.0.1/32          md5

Shell

您可以启动/重新启动postgres服务器，可使用以下命令运行：

[root@host]# service postgresql restart
Stopping postgresql service:                               [  OK  ]
Starting postgresql service:                               [  OK  ]

Shell

Perl连接到PostgreSQL数据库

以下Perl代码显示如何连接到现有的数据库。 如果数据库不存在，那么它将自动创建，最后将返回一个数据库对象。

#!/usr/bin/perl

use DBI;
use strict;

my $driver   = "Pg"; 
my $database = "testdb";
my $dsn = "DBI:$driver:dbname=$database;host=127.0.0.1;port=5432";
my $userid = "postgres";
my $password = "pass123";
my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 }) 
                      or die $DBI::errstr;

print "Opened database successfully\n";

Perl

现在，我们运行上面的程序来打开数据库:testdb，如果成功打开数据库，那么它将给出以下消息：

Open database successfully