PostgreSQL的客户端接口

在PostgreSQL发行版中只包含两个客户端接口: libpq 和 ECPG

• libpq is included because it is the primary C language interface, and because many other client interfaces are built on top of it.
• ECPG is included because it depends on the server-side SQL grammar, and is therefore sensitive to changes in PostgreSQL itself.

其他语言客户端接口：

概念

1. 什么是 Perl？
   我也不懂，参考后面链接，感觉说的挺详细：https://www.runoob.com/perl/perl-intro.html

2. DBI 模块
   DBI 英文全称：Database Independent Interface，中文称为数据库独立接口，是 Perl 编程语言的数据库访问模块。
   DBI 作为 Perl 语言中和数据库进行通讯的标准接口，它定义了一系列的方法，变量和常量，提供一个和具体数据库平台无关的数据库接口。
   DBI 和具体数据库平台无关，我们可以将其应用在PostgreSQL, Oracle, MySQL, DB2 或 Informix 等数据库中。
   

3. Perl连接数据库一个应用场景
   如果研究过Oracle到PostgreSQL数据库的迁移，应该会了解一个迁移工具Ora2pg，Ora2pg就是使用perl语言编写的，使用Ora2pg进行迁移的过程中，就会用到 DBD::Oracle 连接Oracle数据库，DBD::Pg 连接PostgreSQL数据库。

环境准备

1. perl
   一般LInux系统默认都会安装perl，我的实验环境的CentOS 7，默认安装的perl是v5.16.3版本(命令：perl -v)，如果没有安装，可以使用命令yum install perl -y进行安装，或者去官方网站(https://www.perl.org/get.html)下载源码安装。
   官网提示：目前版本是5.34.0，如果Perl的版本早于5.8.3，可能无法运行最新版本的 CPAN 模块。
   Perl-5.34.0源码包下载地址：https://www.cpan.org/src/5.0/perl-5.34.0.tar.gz

# 源码编译安装
[root@pgtest3 ~]# cd /enmo/soft/
[root@pgtest3 soft]# tar -zxvf perl-5.34.0.tar.gz
[root@pgtest3 soft]# cd perl-5.34.0
[root@pgtest3 perl-5.34.0]# mkdir /enmo/app/perl-5.34.0
[root@pgtest3 perl-5.34.0]# ln -s /enmo/app/perl-5.34.0 /enmo/app/perl
[root@pgtest3 perl-5.34.0]# ./Configure -des -Dprefix=/enmo/app/perl
[root@pgtest3 perl-5.34.0]# make
[root@pgtest3 perl-5.34.0]# make test   # 这个过程挺漫长(Elapsed: 714 sec)
[root@pgtest3 perl-5.34.0]# make install

# 配置环境变量
[root@pgtest3 ~]# sed -i "s;:\$PATH:;:/enmo/app/perl/bin:\$PATH:;g" /etc/profile
[root@pgtest3 ~]# source /etc/profile

# 查看版本
[root@pgtest3 ~]# perl -v
This is perl 5, version 34, subversion 0 (v5.34.0) built for x86_64-linux
Copyright 1987-2021, Larry Wall

2. DBD::Pg
   Linux系统中也自带了DBD::Pg(版本：2.19.3)，但是默认不会安装，使用命令yum install perl-DBD-Pg -y进行安装，或者去Perl的模块仓库网站(https://metacpan.org/)下载源码(当前最新：DBD-Pg-3.15.0)安装，但是要打开这个网站得需要点运气，如果像我一样运气不好的话，可以点这个进去找找https://cpan.metacpan.org/authors/id/T/TU/TURNSTEP/。
   DBI源码包下载地址：
   https://cpan.metacpan.org/authors/id/T/TI/TIMB/DBI-1.643.tar.gz
   DBD-Pg-3.15.0 源码包下载地址：
   https://cpan.metacpan.org/authors/id/T/TU/TURNSTEP/DBD-Pg-3.15.0.tar.gz

# 安装 DBD::Pg 之前需要先安装 DBI
[root@pgtest3 soft]# tar -zxvf DBI-1.643.tar.gz 
[root@pgtest3 soft]# cd DBI-1.643
[root@pgtest3 DBI-1.643]# perl Makefile.PL
[root@pgtest3 DBI-1.643]# make
[root@pgtest3 DBI-1.643]# make test
[root@pgtest3 DBI-1.643]# make install

# 安装 DBD::Pg
[root@pgtest3 ~]# cd /enmo/soft/
[root@pgtest3 soft]# tar -zxvf DBD-Pg-3.15.0.tar.gz 
[root@pgtest3 soft]# cd DBD-Pg-3.15.0
[root@pgtest3 soft]# perl Makefile.PL
[root@pgtest3 soft]# make && make install

# 查看已安装的模块
[root@pgtest3 ~]# vi check.pl
#!/usr/bin/perl
use strict;
use ExtUtils::Installed;
my $inst=ExtUtils::Installed->new();
my @modules = $inst->modules();
foreach(@modules){
       my $ver = $inst->version($_) || "???";
       printf("%-12s -- %s\n",$_,$ver);
       }
exit;

[root@pgtest3 ~]# perl check.pl
DBD::Pg      -- 3.15.0
DBI          -- 1.643
Perl         -- 5.34.0

3. PostgreSQL
   参考文档： PostgreSQL高可用测试系列之Patroni + etcd + HAProxy + Keepalived 离线部署（二）

Perl连接PostgreSQL

# 编辑脚本
[root@pgtest3 ~]# vi perl_conn_pg.pl
#! /usr/bin/perl
use strict;
use Data::Dumper;  # 用于select返回数据集
use DBI;
# 连接数据库，AutoCommit(default:1)表示是否自动提交，如果设置为0，不会自动提交，通过 $dbh->commit 来提交，或 $dbh->rollback 来回滚
# $dbh = DBI->connect("dbi:Pg:dbname=$dbname;host=$host;port=$port;options=$options", $username, $password, {AutoCommit => 0, RaiseError => 1, PrintError => 0});
my $dbh=DBI->connect("DBI:Pg:dbname=postgres;host=192.168.58.10;port=5432","postgres","postgres",{ AutoCommit => 0, RaiseError => 1 }) or die "can''t connect!"; 
# 查询
my $sth = $dbh->prepare("select inet_server_addr(),pg_is_in_recovery(),current_database(),current_user" )or die "Syntax error:$!\n";
# 执行
$sth->execute();
# 获取查询结果集
while(my $row=$sth->fetchrow_hashref())
{
    print Dumper($row);
}
# 关闭数据库
$dbh->disconnect();

# 执行脚本
[root@pgtest3 ~]# perl perl_conn_pg.pl 
$VAR1 = {
          'current_database' => 'postgres',
          'current_user' => 'postgres',
          'pg_is_in_recovery' => 0,
          'inet_server_addr' => '192.168.58.10'
        };

DBI 和 DBD::Pg 的使用文档

DBI 的使用文档： https://metacpan.org/pod/DBI
DBD::Pg 的使用文档： https://metacpan.org/pod/DBD::Pg

太难了，有需要再研究更新吧。