mysql - 我可以使用 CGI 显示 MySQL 的输出吗？

Question

嗨， 我使用 DBI 模块用 Perl 编写了一个程序。我可以使用 CGI 显示 MySQL 的输出吗？如果是这样，请帮助我。

程序:

#!/usr/bin/perl -w
use DBI;

print "Content-type:text/html\n\n";
$db_handle = DBI->connect("dbi:mysql:database=CYP1B1;host=localhost:192.168.3.93;")
    or die "Couldn't connect to database: $DBI::errstr\n";

$sql = "SELECT * FROM BPCG";
$statement = $db_handle->prepare($sql)
    or die "Couldn't prepare query '$sql': $DBI::errstr\n";

$statement->execute()
    or die "Couldn't execute query '$sql': $DBI::errstr\n";
print "Location\tNucleotidechange\tAminoacidchange\n";
while(($Location,$Nucleotidechange,$Aminoacidchange)=$statement->fetchrow_array())
{
    print "$Location  $Nucleotidechange               $Aminoacidchange \n";

}
$db_handle->disconnect();

Answer 1

您拥有的是一个 CGI 脚本，已经足够了。但是，您没有输出任何 HTML，该输出是用空格分隔的。将您的内容类型更改为“文本/纯文本”。

您需要一个网络服务器来运行您的 CGI 脚本。去查找有关 lighttpd 或 apache 的内容，以及如何设置它们以运行 CGI 脚本(例如，the example for Apache)。抱歉，上面的内容不会很有帮助，设置网络服务器的主题相当复杂，但希望一些搜索词能让您朝着正确的方向前进。

或者，请注意，这不是为网络编写任何内容的现代方式。如果您正在探索什么是可能的(而不是真正快速地解决问题)，我建议您学习一个框架，例如 Catalyst(位于 CPAN 上)。你需要做更多的前期工作，但从长远来看，无论你想做什么都会更容易。