无法使用 perl DBI 模块连接到 mysql

Question

您好，我正在尝试使用以下 perl 脚本连接到 mysql 数据库：

 #!/usr/bin/perl -w
 use strict;
 use DBI;
 my $dbh = DBI->connect(          
     "dbi:mysql:dbname=MYDATABASENAME", 
     "MYUSERNAME",                          
     "MYPASSWORD",                          
     { RaiseError => 1 },         
 ) or die $DBI::errstr;

 my $sth = $dbh->prepare( "SELECT * FROM classes" );  
 $sth->execute();

 my ($class_id, $class_name, $class_number) = $sth->fetchrow();
 print "$class_id $class_name $class_number\n";

 my $fields = $sth->{NUM_OF_FIELDS};
 print "We have selected $fields field(s)\n";

 my $rows = $sth->rows();
 print "We have selected $rows row(s)\n";

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

现在我只是得到一个空白屏幕，我无法弄清楚为什么我至少没有收到错误消息。我花了 20 多个小时试图弄清楚这一点，这就是为什么我希望有人能看到我做错了什么。提前致谢。

Answer 1

这应该可行。如果您在本地运行脚本，port 是可选的。

 use strict;
 use warnings;
 use DBI;

 my $database   = 'name_of_database';
 my $DBhost     = 'localhost';
 my $port       = 'portnumber';
 my $username   = 'user123';
 my $password   = 'password123';

 my $dbh = DBI->connect("dbi:mysql:database=$database;host=$DBhost;port=$port",$username,$password,                          
     {  RaiseError       => 1,
        PrintError       => 0,
        AutoCommit       => 1,
        FetchHashKeyName => 'NAME_lc'}, ) or die $DBI::errstr;

 my $sth = $dbh->prepare( "SELECT * FROM classes" );  
    $sth->execute();

 my ($class_id, $class_name, $class_number) = $sth->fetchrow();
    print "$class_id $class_name $class_number\n";

 my $fields = $sth->{NUM_OF_FIELDS};
    print "We have selected $fields field(s)\n";

 my $rows = $sth->rows();
    print "We have selected $rows row(s)\n";

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

Answer 2

在评论中，您添加了本应在原始问题中真正存在的有用信息。

对不起，我没有从命令行运行它。我将它保存在我的虚拟主机帐户的 cgi-bin 文件夹中。当我运行脚本时，空白屏幕在浏览器中。

该程序不能作为 CGI 程序运行，因为您没有返回内容类型标头。尝试将这两行添加到程序的顶部。

use CGI 'header';
print header('text/plain');

您还应该找出 Web 服务器错误日志所在的位置并检查是否有错误。这是一项安全功能，CGI 程序不会将其错误发送到浏览器（尽管我希望看到一些迹象表明存在问题）。

还值得指出的是，use warnings pragma 是在 5.6 版（2000 年发布）中添加到 Perl 中的，大多数程序员使用它来代替 shebang 行上的 -w。

我还建议在编写 CGI 版本之前将新的 Perl 模块作为命令行程序进行测试通常（可能总是）是个好主意。当您学习新事物时，CGI 只会增加额外的、不必要的复杂性。