Mac OS Sierra下使用Perl/CGI连接MySQL失败求助

Let's walk through fixing your "Couldn't connect database" error step by step, plus clean up some other bugs in your script.

1. Fix Connection String & Error Reporting First #

Your current code has two critical issues that are either causing the failure or hiding the real problem:

• The MySQL connection string uses colons to separate parameters (wrong syntax—should use semicolons)
• You're not capturing the actual DBI error message correctly due to unnecessary spaces in $DBI :: errstr

Corrected connection code snippet: #

my $dbh = DBI->connect("DBI:mysql:database=$db;host=$host", $user, $password)
    or die "Couldn't open database: $DBI::errstr";

This will now show you specific errors like missing modules, wrong credentials, or inaccessible databases instead of a generic failure message.

2. Verify the DBD::mysql Perl Module is Installed #

macOS doesn't include the DBD::mysql module (the Perl driver for MySQL) by default. To check if you have it:
Run this in your terminal:

perl -MDBI -e 'print join("\n", DBI->available_drivers), "\n"'

If mysql isn't listed, install it:

1. First, install MySQL client libraries via Homebrew (if you haven't already):

   brew install mysql-client
   export PATH="/usr/local/opt/mysql-client/bin:$PATH"
   

2. Install the module with CPAN:

   cpan DBD::mysql
   

   Or use cpanm (a more user-friendly alternative):

   cpanm DBD::mysql
   

3. Validate MySQL Server & Credentials #

Even with correct code, you need to ensure your MySQL setup is accessible:

• Check if MySQL is running:

  brew services list
  

  Look for mysql with a started status. If not, start it with brew services start mysql.
• Test your credentials:
  Try logging into MySQL directly with your script's credentials:

  mysql -u root -p
  

  Enter your password isRovss*%1u—if this fails, your password is wrong or the root user isn't configured correctly.
• Confirm the New database exists:
  Once logged into MySQL, run:

  SHOW DATABASES;
  

  Make sure New appears (note: MySQL on macOS may be case-sensitive depending on your filesystem, so match the exact capitalization).
• Check root user permissions:
  Ensure the root user can connect from localhost:

  SELECT user, host FROM mysql.user WHERE user = 'root';
  

  You should see an entry where host is localhost.

4. Fix Other Issues in Your Script #

Your HTML table structure and data printing logic are broken—here's a cleaned-up, working version with best practices (like strict/warnings to catch hidden bugs):

#!/usr/bin/perl
use strict;
use warnings;

print "content-type:text/html\n\n";
print "<html><body>";

use CGI;
use DBI;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

# Use 'my' to declare variables (avoids global scope bugs)
my $db = "New";
my $user = "root";
my $password = "isRovss*%1u";
my $host = "localhost";

# Corrected connection string and error reporting
my $dbh = DBI->connect(
    "DBI:mysql:database=$db;host=$host",
    $user,
    $password
) or die "Couldn't open database: $DBI::errstr";

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

print "<table border='1'>";
# Fix header row (all <th> elements belong in one <tr>)
print "<tr><th>id</th><th>name</th><th>age</th></tr>";

# Print each row of data inside the loop (not just the last one)
while (my @row = $sth->fetchrow_array()) {
    my ($id, $name, $age) = @row;
    print "<tr><td>$id</td><td>$name</td><td>$age</td></tr>";
}

print "</table>";
$sth->finish();
$dbh->disconnect(); # Explicitly close the database connection
print "<p>Database closed</p>";
print "</body></html>";

Final Steps #

1. Apply the connection string fix first to get detailed error messages if the connection still fails.
2. Install DBD::mysql if it's missing.
3. Verify your MySQL server is running and credentials are correct.
4. Use the cleaned-up script to ensure your table renders properly.

内容的提问来源于stack exchange，提问作者Swathi J