如何使用 DBI 和 mod_perl 连接到 DB2？

Question

我在让 DBI 的 IBM DB2 驱动程序与 mod_perl 一起使用时遇到问题。我的测试脚本是：

#!/usr/bin/perl

use strict;
use CGI;
use Data::Dumper;
use DBI;

{
    my $q;
    my $dsn;
    my $username;
    my $password;
    my $sth;
    my $dbc;
    my $row;

    $q = CGI->new;
    print $q->header;
    print $q->start_html();

    $dsn = "DBI:DB2:SAMPLE";
    $username = "username";
    $password = "password";

    print "<pre>".$q->escapeHTML(Dumper(\%ENV))."</pre>";

    $dbc = DBI->connect($dsn, $username, $password);

    $sth = $dbc->prepare("SELECT * FROM SOME_TABLE WHERE FIELD='SOMETHING'");
    $sth->execute();
    $row = $sth->fetchrow_hashref();
    print "<pre>".$q->escapeHTML(Dumper($row))."</pre>";

    print $q->end_html;
}

该脚本作为 CGI 工作，但不在 mod_perl 下工作。我在 apache 的错误日志中收到此错误：

DBD::DB2::dr connect warning: [unixODBC][Driver Manager]Data source name not found, and no default driver specified at /usr/lib/perl5/site_perl/5.8.8/Apache/DBI.pm line 190.
DBI connect('SAMPLE','username',...) failed: [unixODBC][Driver Manager]Data source name not found, and no default driver specified at /data/www/perl/test.pl line 15

首先，为什么它使用 ODBC？安装了本机 DB2 驱动程序（因此它作为 CGI 工作）。

在RHEL5下运行Apache 2.2.3、mod_perl 2.0.4。

这位朋友和我有同样的问题： http://www.mail-archive.com/[电子邮件受保护]/msg22909.html 但我不知道他是如何解决的。 mod_php4 和 mod_perl 有什么关系？

任何帮助将不胜感激，我在谷歌上没有运气。

更新：

正如 james2vegas 指出的，问题与 PHP 有关：我一起禁用 PHP 我得到了一个不同的错误：

 Total Environment allocation failure! Did you set up your DB2 client environment?

我相信这个错误与环境变量设置不正确有关，即DB2INSTANCE。但是，我无法关闭 PHP 来解决此问题（我需要它来处理某些遗留应用程序）。所以我现在有两个问题：

1. 如何在不禁用 PHP 的情况下解决最初的问题？
2. 如何解决环境问题？

我已经使用 httpd.conf 中的 SetEnv 和 PerlSetEnv 正确设置了 DB2INSTANCE、DB2_PATH 和 SQLLIB 变量，但没有成功。

注意：我编辑了代码以确定问题是否与全局变量持久性有关。

Answer 1

这似乎已解决，供参考：在 /etc/php.d/pdo_odbc.ini 中禁用 PHP 的 ODBC 支持，设置环境变量并预加载 DBD::DB2 在 mod_perl 的启动脚本中，尽管可以使用 PERL_DL_NONLAZY 设置为 1 以强制加载正确的库。

Answer 2

普通的旧式 DBI 在 mod_perl 中不起作用；当您的进程分叉并且您尝试再次使用数据库句柄时，一切都会变得不稳定。您需要使用 Apache::DBI （它是 DBI 的直接替代品），或者更好的是，使用后现代 DBI 包装器，例如 DBIx::Connector。

您可以在此处阅读更多详细信息： Apache 将 mod_perl 与关系数据库结合使用的指南。