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