DBI, DBD란?
DBI는 Perl에서 사용되는 Database Interface 입니다.
Perl 프로그래밍에서 데이터베이스 통신을 표준화한 모듈입니다.

DBD는 Database Driver 입니다.
DBI 모듈은 표준화 모듈이다 보니, 여러 DBMS의 특성을 모두 반영할 수 없습니다.
DBMS마다 다른 이 특성 및 기능들을 지원하기 위해서 만들어진 패키지가 DBD 입니다.

DBI 모듈을 PostgreSQL에 사용하기 위해 DBD::Pg 패키지를 추가로 설치합니다.

DBD::Pg 호환성 확인

작성일 기준 DBD::Pg의 최신 버전은 3.16.3 입니다.

DBD::Pg 버전	3.16.3
Perl5 버전	5.8.1 이상 필요
DBI Module 버전	1.614 이상 필요
PostgreSQL 버전	8.0 이상 필요

DBD::Pg 다운로드

DBD::Pg는 perl-CPAN을 이용하여 쉽게 다운로드 및 설치할 수 있습니다.

cpan install DBD::Pg

소스코드를 다운로드하여 빌드 하는 방법은 아래의 DBD::Pg github를 참조 해주시기 바랍니다.
https://github.com/bucardo/dbdpg

DBD::Pg 설치

Linux(CentOS7) 와 Windows 10 두 환경에서 설치를 해보도록 하겠습니다.

Linux (CentOS 7)에 설치

설치 시 필요한 패키지 목록

postgresql-14.2 기준

make
gcc
postgresql14.2-devel
perl
perl-CPAN
perl-DBI

설치 과정

1. perl-CPAN 및 perl-DBI 모듈을 설치해 줍니다.

yum install perl-CPAN perl-DBI -y

2.perl-DBI 모듈의 버전을 확인합니다.

perl -e ‘use DBI; DBI->installed_versions();’
Perl : 5.016003 (x86_64-linux-thread-multi)
OS : linux (3.10.0-957.1.3.el7.x86_64)
DBI : 1.627
DBD::Sponge : 12.010002
DBD::Proxy : 0.2004
DBD::Gofer : 0.015326
DBD::File : 0.41
DBD::ExampleP : 12.014310
DBD::DBM : 0.08

3. DBD::Pg를 설치합니다.

# TLS/SSL 인증을 사용한다면 아래와 같이 환경 변수를 설정해줍니다.
export POSTGRES_LIB=”/usr/pgsql-14/lib -lssl -lcrypto”

# cpan을 이용하여 install
cpan install DBD::Pg

Reading ‘/opensql/.cpan/Metadata’
Database was generated on Wed, 03 May 2023 01:56:58 GMT
Running install for module ‘DBD::Pg’
Running make for T/TU/TURNSTEP/DBD-Pg-3.16.3.tar.gz
Fetching with HTTP::Tiny:
http://www.cpan.org/authors/id/T/TU/TURNSTEP/DBD-Pg-3.16.3.tar.gz
Fetching with HTTP::Tiny:
http://www.cpan.org/authors/id/T/TU/TURNSTEP/CHECKSUMS
Checksum for /opensql/.cpan/sources/authors/id/T/TU/TURNSTEP/DBD-Pg-3.16.3.tar.gz ok

CPAN.pm: Building T/TU/TURNSTEP/DBD-Pg-3.16.3.tar.gz

Configuring DBD::Pg 3.16.3
PostgreSQL version: 140002 (default port: 5432)
POSTGRES_HOME: (not set)
POSTGRES_INCLUDE: /usr/pgsql-14/include
POSTGRES_LIB: /usr/pgsql-14/lib
OS: linux
Checking if your kit is complete…
Looks good
Using DBI 1.627 (for perl 5.016003 on x86_64-linux-thread-multi) installed in /usr/lib64/perl5/vendor_perl/auto/DBI/
Writing Makefile for DBD::Pg
Could not read metadata file. Falling back to other methods to determine prerequisites
cp lib/Bundle/DBD/Pg.pm blib/lib/Bundle/DBD/Pg.pm
cp Pg.pm blib/lib/DBD/Pg.pm
/usr/bin/perl -p -e “s/~DRIVER~/Pg/g; s/^do(/dontdo(/” /usr/lib64/perl5/vendor_perl/auto/DBI/Driver.xst > Pg.xsi
/usr/bin/perl /usr/share/perl5/vendor_perl/ExtUtils/xsubpp -typemap /usr/share/perl5/ExtUtils/typemap Pg.xs > Pg.xsc && mv Pg.xsc Pg.c
gcc -c -I/usr/pgsql-14/include -I/usr/lib64/perl5/vendor_perl/auto/DBI -D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -DPGLIBVERSION=140002 -DPGDEFPORT=5432 -DHAS64BITLO -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector-strong –param=ssp-buffer-size=4 -grecord-gcc-switches -m64 -mtune=generic -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc -DVERSION=”3.16.3″ -DXS_VERSION=”3.16.3″ -fPIC “-I/usr/lib64/perl5/CORE” Pg.c
Running Mkbootstrap for DBD::Pg ()
chmod 644 Pg.bs
rm -f blib/arch/auto/DBD/Pg/Pg.so
gcc -shared -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector-strong –param=ssp-buffer-size=4 -grecord-gcc-switches -m64 -mtune=generic -Wl,-z,relro Pg.o dbdimp.o quote.o types.o -o blib/arch/auto/DBD/Pg/Pg.so
-L/usr/pgsql-14/lib -lpq -lm

.
.
.

# DBI Version 1.627
# DBD::Pg Version 3.16.3
# Perl Version 5.16.3
# OS linux
# PostgreSQL (compiled) 140002
# PostgreSQL (target) 140002
#PostgreSQL (reported) PostgreSQL 14.2 on x86_64-pc-linux-gnu, compiled by gcc (GCC) 4.8.5 20150623 (Red Hat 4.8.5-44), 64-bit
#Default port 5432
# DBI_DSN dbi:Pg:db=”postgres”
# DBI_USER postgres
# Test schema dbd_pg_testschema
# PGHOST /var/run/opensql
# PGUSER postgres
# LANG en_US.UTF-8
# Adjusted: DBI_DSN

t/01connect.t ………. ok
t/01constants.t …….. ok
t/02attribs.t ………. ok
t/03dbmethod.t ……… ok
t/03smethod.t ………. ok
t/04misc.t …………. ok
t/06bytea.t ………… ok
t/07copy.t …………. ok
t/08async.t ………… ok
t/09arrays.t ……….. ok
t/10_pg_error_field.t .. ok
t/12placeholders.t ….. ok
t/20savepoints.t ……. ok
t/30unicode.t ………. ok
t/99cleanup.t ………. ok
All tests successful.
Files=17, Tests=3019, 23 wallclock secs ( 0.23 usr 0.07 sys + 3.00 cusr 0.46 csys = 3.76 CPU)
Result: PASS
TURNSTEP/DBD-Pg-3.16.3.tar.gz
/bin/make test — OK
Running make install
Files found in blib/arch: installing files in blib/lib into architecture dependent library tree
Installing /usr/local/lib64/perl5/auto/DBD/Pg/Pg.so
Installing /usr/local/lib64/perl5/auto/DBD/Pg/Pg.bs
Installing /usr/local/lib64/perl5/DBD/Pg.pm
Installing /usr/local/lib64/perl5/Bundle/DBD/Pg.pm
Installing /usr/local/share/man/man3/Bundle::DBD::Pg.3pm
Installing /usr/local/share/man/man3/DBD::Pg.3pm
Appending installation info to /usr/lib64/perl5/perllocal.pod
TURNSTEP/DBD-Pg-3.16.3.tar.gz
sudo /bin/make install — OK

4. 설치가 잘 되었는지 확인합니다.

perl -e ‘use DBI; DBI->installed_versions();’

Perl : 5.016003 (x86_64-linux-thread-multi)
OS : linux (3.10.0-957.1.3.el7.x86_64)
DBI : 1.627
DBD::Sponge : 12.010002
DBD::Proxy : 0.2004
DBD::Pg : 3.16.3
DBD::Gofer : 0.015326
DBD::File : 0.41
DBD::ExampleP : 12.014310
DBD::DBM : 0.08

Windows 10 (64-bit)에 설치

설치 시 필요한 패키지 목록

PostgreSQL14 패키지

윈도우 환경에서는 Strawberry-perl을 사용하도록 하겠습니다.
Strawberry-perl에는 cpan을 포함하여 DBD::Pg 컴파일에 필요한 모든 패키지가 들어있습니다.

1.아래의 홈페이지에서 Strawberry-perl을 다운로드 받아서 설치합니다.

Strawberry Perl for Windows

저는 64-bit 환경이므로 64-bit용 설치 파일으로 진행하겠습니다.

2. Strawberry-Perl이 잘 설치되었는지 확인합니다.
Strawberry-Perl은 설치시에 환경 변수 PATH에 등록되므로, cmd를 이용하여 확인해줍니다.

perl –version

3. DBI 모듈을 설치합니다.
Strawberry-perl은 기본 설치 패키지에 DBI 모듈이 설치되어 있으므로 아래와 같이 버전이 확인됩니다. (1.643)

cpan install DBI

4. DBD::Pg를 설치합니다.
Strawberry-perl은 기본 설치 패키지에 DBD::Pg 패키지가 설치되어 있지만 버전이 낮습니다.
make test가 실패하기 때문에, -fi 옵션을 주어서 강제로 설치합니다.
POSTGRES_HOME 환경변수를 사용해서 PostgreSQL 서버의 위치를 설정해주어야 합니다.

SET POSTGRES_HOME=C:Program FilesPostgreSQL14
cpan -fi install DBD::Pg

5. 설치가 잘 되었는지 확인합니다.

perl -e “use DBI; DBI->installed_versions();”

Perl : 5.032001 (MSWin32-x64-multi-thread)
OS : MSWin32 (10.0.19042.746)
DBI : 1.643
DBD::mysql : 4.050
DBD::Sponge : 12.010003
DBD::SQLite : 1.66
DBD::Proxy : install_driver(Proxy) failed: Can’t locate RPC/PlClient.pm in @INC (you may need to install the RPC::PlClient module)
DBD::Pg : 3.16.3

DBD::Pg 사용방법

DBD::Pg 사용방법 – Linux(CentOS 7)

사용방법 실습 환경
아래와 같은 환경에서 DBD::Pg를 사용하는 방법을 알려드리겠습니다!

OS	CentOS 7.9
PostgreSQL Version	PostgreSQL 14.2
Perl Version	5.16.3
DBI Version	1.627
DBD::Pg Version	3.16.3

사용방법 실습 순서

1. 실습에 필요한 테스트 코드 파일을 생성합니다.
테스트 코드가 담긴 dbdPgTest.pl 파일을 생성 하겠습니다.

use DBI;
use Encode;
use strict;

my $dbHost=”127.0.0.1″;
my $dbPort=”5432″;
my $dbName=”postgres”;
my $dbUser=”postgres”;
my $dbPswd=”1234″;
my $dbSQL=”SELECT * FROM pg_stat_activity”;
custom($dbHost, $dbPort, $dbName, $dbUser, $dbPswd);
my $dbh = DBI->connect(“DBI:Pg:dbname=$dbName;host=$dbHost;port=$dbPort”, $dbUser, $dbPswd, {‘RaiseError’ => 1});

print “nnConnected to Database!! nn”;

# input Query

inputQuery($dbSQL);

# execute SELECT query

my $sth = $dbh->prepare($dbSQL);
$sth->execute() or die $DBI::errstr;

while(my @row = $sth->fetchrow_array()) {
for(my $i=0; $i < $#row+1; $i++){
print encode(‘utf-8’,$row[$i].” “);
}
print “n”;
}

sub custom {
print “n If you inputted wrong value, Just input -1 n”;
my @print = (“n Input Host : “,”n Input Port : “,”n Input Database Name : “,”n Input User : “,”n Input Password : “);
my @default = (“127.0.0.1″,”5432″,”postgres”,”postgres”,”1234″);
for(my $j=0; $j<5; $j++){ print $print[$j]; if($j==4){system (“stty -echo”);} $_[$j]=;
if($_[$j]==-1 && $j != 0) {$j–; redo;}
elsif($_[$j]==-1 && $j == 0) {redo;}
chomp $_[$j];
if($j==4){system (“stty echo”);}
if($_[$j] eq “” || !defined($_[$j])) {$_[$j]=$default[$j];}
}
print “n”;
return;
}

sub inputQuery {
print “n Input SELECT QUERY : “;
$_[0]=;
chomp $_[0];
while($_[0] eq “” || !defined($_[0])) {
print “n Input SELECT QUERY : “;
$_[0]=;
chomp $_[0];
}
return;
}

2. 테스트 파일을 실행합니다.

perl dbdPgTest.pl

실행하게 되면, 아래와 같이 데이터베이스 접속 정보를 입력 받습니다.
먼저 데이터베이스 서버의 호스트를 입력합니다.

perl dbdPgTest.pl

# 아래와 같이 연결할 데이터베이스의 Host를 물어봅니다.

# 저는 localhost에 있으므로 127.0.0.1을 입력 해주도록 하겠습니다.

# 값을 잘못 입력할 경우, -1을 입력하게 되면 이전 단계로 돌아갑니다.

If you inputted wrong value, Just input -1

Input Host : 127.0.0.1

데이터베이스 서버의 포트를 입력합니다.

Input Port : 5432

접속할 데이터베이스명을 입력합니다.

Input Database Name : postgres

접속에 사용할 데이터베이스 유저를 입력합니다.

데이터베이스 유저를 입력 해주세요.
postgres
user : postgres

접속에 사용할 데이터베이스 유저의 패스워드를 입력합니다.

# 패스워드는 입력 값이 보이지 않습니다.
Input Password : 1234

연결에 성공하면 아래와 같이 연결 성공 문구가 출력됩니다.

Connected to Database!!

실행할 쿼리를 입력하면 아래와 같이 결과가 출력됩니다.

Input SELECT QUERY : SELECT * FROM pg_stat_database;
0 0 0 0 27 12214 4928 2531 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2023-05-03 11:27:21.122517+09
14486 postgres 1 3177 336 1087 248967 560233 101468 6504 884 5398 0 0 0 0 0 0 72158.143 21988.961 22315.091 112 9 0 0 2023-05-03 11:27:21.122478+09
1 template1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
14485 template0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

DBD::Pg 사용 방법 – Windows 10

사용방법 실습 환경

아래와 같은 환경에서 DBD::Pg를 사용하는 방법을 알려드리겠습니다!

OS	CentOS 7.9
PostgreSQL Version	PostgreSQL 14.7
Perl Version	5.32.1 (Strawberry perl)
DBI Version	1.627
DBD::Pg Version	3.16.3

사용방법 실습 순서

1.실습에 필요한 테스트 코드 파일을 생성합니다. 메모장을 이용해서 테스트 코드가 담긴 **dbdPgTest.pl** 파일을 생성 하겠습니다.

use DBI;
use Encode;
use strict;

my $dbHost=”127.0.0.1″;
my $dbPort=”5432″;
my $dbName=”postgres”;
my $dbUser=”postgres”;
my $dbPswd=”1234″;
my $dbSQL=”SELECT * FROM pg_stat_activity”;
custom($dbHost, $dbPort, $dbName, $dbUser, $dbPswd);
my $dbh = DBI->connect(“DBI:Pg:dbname=$dbName;host=$dbHost;port=$dbPort”, $dbUser, $dbPswd, {‘RaiseError’ => 1});

print “nnConnected to Database!! nn”;

#input Query

inputQuery($dbSQL);

#execute SELECT query

my $sth = $dbh->prepare($dbSQL);
$sth->execute() or die $DBI::errstr;

while(my @row = $sth->fetchrow_array()) {
for(my $i=0; $i < $#row+1; $i++){
print encode(‘utf-8’,$row[$i].” “);
}
print “n”;
}

sub custom {
print “n If you inputted wrong value, Just input -1 n”;
my @print = (“n Input Host : “,”n Input Port : “,”n Input Database Name : “,”n Input User : “,”n Input Password : “);
my @default = (“127.0.0.1″,”5432″,”postgres”,”postgres”,”1234″);
for(my $j=0; $j<5; $j++){ print $print[$j]; if($j==4){system (“stty -echo”);} $_[$j]=;
if($_[$j]==-1 && $j != 0) {$j–; redo;}
elsif($_[$j]==-1 && $j == 0) {redo;}
chomp $_[$j];
if($_[$j] eq “” || !defined($_[$j])) {$_[$j]=$default[$j];}
}
print “n”;
return;
}

sub inputQuery {
print “n Input SELECT QUERY : “;
$_[0]=;
chomp $_[0];
while($_[0] eq “” || !defined($_[0])) {
print “n Input SELECT QUERY : “;
$_[0]=;
chomp $_[0];
}
return;
}

2. 테스트 파일을 실행합니다.

perl dbdPgTest.pl

실행하게 되면, 아래와 같이 데이터베이스 접속 정보를 입력 받습니다.
먼저 데이터베이스 서버의 호스트를 입력합니다.

perl dbdPgTest.pl

# 아래와 같이 연결할 데이터베이스의 Host를 물어봅니다.

# 저는 localhost에 있으므로 127.0.0.1을 입력 해주도록 하겠습니다.

# 값을 잘못 입력할 경우, -1을 입력하게 되면 이전 단계로 돌아갑니다.

If you inputted wrong value, Just input -1

Input Host : 127.0.0.1

데이터베이스 서버의 포트를 입력합니다.

Input Port : 5432

접속할 데이터베이스명을 입력합니다.

Input Database Name : postgres

접속에 사용할 데이터베이스 유저를 입력합니다.

데이터베이스 유저를 입력 해주세요.
postgres
user : postgres

접속에 사용할 데이터베이스 유저의 패스워드를 입력합니다.

Input Password : 1234

연결에 성공하면 아래와 같이 연결 성공 문구가 출력됩니다.

Connected to Database!!

실행할 쿼리를 입력하면 아래와 같이 결과가 출력됩니다.

Input SELECT QUERY : SELECT * FROM pg_stat_database;
0 0 0 0 27 12214 4928 2531 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2023-05-03 11:27:21.122517+09
14486 postgres 1 3177 336 1087 248967 560233 101468 6504 884 5398 0 0 0 0 0 0 72158.143 21988.961 22315.091 112 9 0 0 2023-05-03 11:27:21.122478+09
1 template1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
14485 template0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

오류가 발생 한다면?

연결 오류

DBI connect(‘dbname=1234;host=127.0.0.1;port=5432′,’1234’,…) failed: connection to server at “127.0.0.1”, port 5432 failed: FATAL: role “1234” does not exist at dbdPgTest.pl line 12.

오류가 발생해요!

답변내용
PostgreSQL 서버에 1234 이름의 유저(role)가 없습니다.

해결 방안
1. PostgreSQL 서버에서 유저가 있는지 확인합니다.

Superuser를 이용해 pg_shadow 카탈로그를 조회하면 확인할 수 있습니다.

DBI connect(‘dbname=1;host=1;port=1′,’1’,…) failed: connection to server at “1” (0.0.0.1), port 1 failed: Invalid argument Is the server running on that host and accepting TCP/IP connections? at dbdPgTest.pl line 12.

오류가 발생해요!

답변 내용 :
입력한 접속 정보에 문제가 있습니다!

해결방안
접속 정보를 다시 확인 해주시기 바랍니다.
- host는 IP, Hostname, Unix Domain Socket 등이 사용 가능합니다. 서버에 설정되어 있는 접속 방법을 확인 해주시기 바랍니다.

DBI connect(‘dbname=postgres;host=127.0.0.1;port=5433′,’postgres’,…) failed: connection to server at “127.0.0.1”, port 5433 failed: Connection refused Is the server running on that host and accepting TCP/IP connections? at dbdPgTest.pl line 12.

오류가 발생해요!

답변 내용
PostgreSQL 서버에 접속이 불가능 한 상태입니다!
1. PostgreSQL 서버 기동 상태를 확인합니다.
- PostgreSQL 데이터베이스 서버가 기동되어 있지 않다면 접속이 불가능합니다.기동이 되어 있다면 postgresql.conf와 postgresql.auto.conf의 listen_addresses 파라미터를 확인해주세요.
2. Host와 Port를 한번 더 확인 해주시기 바랍니다.
- Host와 Port가 잘못 입력 되어서 입력 받은 접속 정보로 연결이 불가능 할 경우 위와 같은 메시지가 출력됩니다.
3. PostgreSQL 서버의 방화벽을 확인합니다.
- 접속을 시도하는 서버가 PostgreSQL 서버의 방화벽에 막히지 않는지 방화벽 설정을 확인 해주시기 바랍니다.

DBI connect(‘dbname=postgres;host=192.168.200.134;port=5432′,’postgres’,…) failed: FATAL: no pg_hba.conf entry for host “192.168.200.1”, user “postgres”, database “postgres”, no encryption at dbdPgTest.pl line 12.

오류가 발생해요!

답변 내용 :
PostgreSQL의 pg_hba.conf에 연결 허용 설정이 되어있지 않아서 그렇습니다!
pg_hba.conf에 접속 정보를 추가 해주세요!

아래는 TCP 연결을 통해 192.168.123.123 호스트로 부터 온 연결 요청에 대해서 모든 데이터베이스 및 모든 유저로 접속이 가능하고 패스워드는 입력하지 않아도 접속이 가능 하도록 설정하는 예시 입니다.

#TYPE DATABASE USER ADDRESS METHOD
host all all 192.168.123.123/32 trust

쿼리 오류

DBD::Pg::st execute failed: ERROR: relation “pg_databases” does not exist LINE 1: SELECT * FROM pg_databases; ^ at dbdPgTest.pl line 21, <STDIN> line 6.

오류가 발생해요!

답변 내용
쿼리의 FROM절에 인용된 오브젝트가 존재하지 않습니다. 테이블을 조회 하셨다면 테이블 이름을 다시 확인 해주세요!

DBD::Pg 에 대한 더욱 자세한 정보는 아래의 DBD::Pg cpan을 확인 해주시기 바랍니다!

https://metacpan.org/pod/DBD::Pg

지금까지 ‘(Interface) Perl – DBD::Pg’에 관해 알아보았습니다

‘PostgreSQL의 GO – PGX’를 바로 이어서 확인해보세요!

Innovating today, leading tomorrow

[OpenSQL] (Interface) Perl – DBD::Pg

DBD::Pg 개요

DBD::Pg 호환성 확인

DBD::Pg 다운로드