ブラウザ上でPerlからDB2へ接続できない

Question

PerlからDB2へ接続するクライアント環境を構築したい

CentOS７にDB2 V11.1をインストールしました。connect_db2.plというスクリプトを作成し、コマンドラインでは接続できてSQL文を実行できています。しかし、ブラウザからhttp://localhost/cgi-bin/connect_db2.plとしてアクセスすると接続できません。一体、どの環境変数を設定すればよいのでしょうか。

発生している問題・エラーメッセージ

/var/log/httpd/error_log の中身
connect_db2.pl: DBI connect('SAMPLE','db2inst1',...) failed: Total
Environment allocation failure! Did you set up your DB2 client
environment? at /var/www/cgi-bin/connect_db2.pl line 13.

該当のソースコード

#!/usr/bin/perl
use warnings;
use strict;
use DBI;
use DBD::DB2::Constants;
use DBD::DB2;

my $dbh = DBI->connect("dbi:DB2:SAMPLE", "db2inst1", "password")
or die "SAMPLE DBに接続できません: " . DBI->errstr;

my $sth = $dbh->prepare
 ("SELECT DEPTNAME,COUNT(*) FROM EMPLOYEE E,DEPT D"
 . " WHERE E.WORKDEPT=D.DEPTNO GROUP BY DEPTNAME");
$sth->execute();

my ($deptname,$count);

while (($deptname,$count) = $sth->fetchrow())
{
 printf "%30s | %4d\n",$deptname,$count;
}

$sth->finish();
$dbh->disconnect;
exit;

試したこと

. ~db2inst1/sqllib/db2profile
をroot権限で行いました。

補足情報（FW/ツールのバージョンなど）

CentOS7.6
DB2 V11.1.4.4

Comments

[Orlofsky]

コードは https://teratail.com/help#about-markdown の [コードを入力] に修正してください。

Answer 1

ググるとこんな情報が出てきましたが、試してみましたか？
https://www.perlmonks.org/?node_id=682626

Comments

[ShieNishikawa]

$set|egrep '(DB2|INSTHOME)'
CUR_INSTHOME=/home/db2inst1/sqllib
DB2DIR=/opt/ibm/db2/V11.1
DB2INSTANCE=db2inst1
DB2LIB=/home/db2inst1/sqllib/lib
DB2_HOME=/home/db2inst1/sqllib
DB2_NET_CLIENT_PATH=
DB2_PATH=/opt/ibm/db2/V11.1
INSTHOME=/home/db2inst1

となっていました。https://www.ibm.com/support/knowledgecenter/en/SSEPGG_11.1.0/com.ibm.swg.im.dbclient.install.doc/doc/t0061333.html
の<network_dir>とは、どこのことでしょうか。

[ssasaki]

その情報で接続できているのですよね？
それを CGI 実行時の環境も同様に設定しないといけないという話では？

[ShieNishikawa]

httpd.confに
SetEnv CUR_INSTHOME /home/db2inst1/sqllib
SetEnv DB2DIR /opt/ibm/db2/V11.1
SetEnv DB2INSTANCE db2inst1
SetEnv DB2LIB /home/db2inst1/sqllib/lib
SetEnv DB2_HOME /home/db2inst1/sqllib
SetEnv DB2_PATH /opt/ibm/db2/V11.1
SetEnv INSTHOME /home/db2inst1
を追加したら接続できました。どうもありがとうございました。