Perl CGI查询DB2并输出结果

求上进

功能：

        最近在写一个基于CGI的WEB查询页面，通过HTML将查询的字符串传递到CGI脚本，脚本连接到DB2并查询到结果并在WEB页面上展现结果。

问题：

        CGI脚本在命令行执行没问题，通过浏览器访问报错。

CGI脚本代码：

1. #!/usr/bin/perl
   
2. 
   
3. use DBI;
   
4. 
   
5. # system("source /etc/profile");
   
6. 
   
7. $DSN="DATABASE=test; HOSTNAME=192.168.4.252; PORT=50000; PROTOCOL=TCPIP; UID=db2inst1; PWD=123qwe";
   
8. 
   
9. my $dbh = DBI->connect("dbi:DB2:$DSN", {PrintError => 0})
   
10. or die "Couldn't connect to database: " . DBI->errstr;
    
11. 
    
12. $dbh->disconnect;
    
13. 
    
14. print "Content-type:text/html\n\n";
    
15. print "hello world!!\n";

复制代码

报错信息：

[Thu May 09 08:59:02 2013] [error] [client 192.168.3.161] install_driver(DB2) failed: Can't load '/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/auto/DBD/DB2/DB2.so' for module DBD:B2: libdb2.so.1: cannot open shared object file: No such file or directory at /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/DynaLoader.pm line 230.
[Thu May 09 08:59:02 2013] [error] [client 192.168.3.161]  at (eval 3) line 3
[Thu May 09 08:59:02 2013] [error] [client 192.168.3.161] Compilation failed in require at (eval 3) line 3.
[Thu May 09 08:59:02 2013] [error] [client 192.168.3.161] Perhaps a required shared library or dll isn't installed where expected
[Thu May 09 08:59:02 2013] [error] [client 192.168.3.161]  at /var/www/cgi-bin/con2db2.cgi line 7
[Thu May 09 08:59:02 2013] [error] [client 192.168.3.161] Premature end of script headers: con2db2.cgi

求教问题：
   
        1.错误原因是什么。
        2.连接DB2的方式是否合适。

laputa73

环境变量问题
多半是LD_LIBRARY_PATH

求上进

回复 2# laputa73


    这个环境变量在/etc/profile中定义，apache中是否需要配置呢？如何配置？

求上进

问题解决了，在apache的配置文件中添加一行代码：

1. SetEnv LD_LIBRARY_PATH /home/db2inst1/sqllib/lib

复制代码

重启apache即可。