DBI->connect 在终端执行时工作，但从浏览器执行时不工作

Question

我正在编写一个在浏览器中打印数据库查询结果的 CGI 程序。脚本是这样的

#!/usr/bin/perl

use strict;
use warnings;

use DBI;

print "Content-type: text/html\n\n";

my $driver   = "mysql";
my $database = "DBname";
my $ip       = "127.0.0.1";
my $db       = "DBI:$driver:DBNAME:$ip:database=$database";
my $username = "user";
my $password = "pass";

print "Connecting ...";

my $connection = DBI->connect($db, $username, $password)
    or print "Couldn't connect to database: " . DBI->errstr . "\n\n";

print "Successful connection\n";

my $query = $connection->prepare("SELECT id FROM table");

$query->execute() or die $DBI::errstr;

while ( my @row = $query->fetchrow_array() ) {
    my ($id) = @row;
    print "ID = $id \n";
}

$query->finish();

好吧，我的问题是当我从终端运行它时使用

perl test.cgi

它工作正常，我得到正确的打印结果。 CGI脚本位于/Library/Webserver/CGI-Executables/，默认配置/cgi-bin/在/etc/apache2/httpd.conf

如果我通过网络浏览器执行它，我只会得到第一个打印 Connecting 而没有其他任何东西，甚至没有来自 DBI->connect 的 or print。我一直试图了解错误是什么，但我无法找到有用的解决方案。

Answer 1

从您的最终评论来看，我怀疑是：服务器使用的 perl 根本没有安装 DBD::mysql，而您的命令行 perl 有

只需将驱动模块安装在服务器上，一切都会好起来的

请注意，不需要“为 Apache 配置”，只是 CGI 代码使用的 perl 副本没有该模块

顺便说一句，内容类型应该是text/plain，而不是text/html：你没有生成HTML