请问DBI连接mysql的问题

duziteng

UID: 32269
帖子: 84
积分: 193
在线时间: 9 小时

1^# duziteng 发表于 2008-05-06 18:56

请问DBI连接mysql的问题

我在一台电脑上写了一个cgi程序，是连接mysql的，可以运行，现在在另一台电脑上就连不上数据库了

DBI和CGI都是装好的，cgi程序运行之后没有显示任何内容，网页是一个空白网页

我就装了一个mysql数据库，mysql服务是运行的，而且从dos是可以看数据库内容的，现在我估计是cgi连接mysql的问题，请问大家有没有遇到过这种问题的，我实在是没办法了，谢谢了！

duziteng

UID: 32269
帖子: 84
积分: 193
在线时间: 9 小时

2^# duziteng 发表于 2008-05-06 18:57

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl

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

print "<title>windows环境变量</title>";

print "<body>恭喜你的website已经成功<br>";

use DBI;

# Connect to target DB
my $dbh = DBI->connect("DBI:mysql:database=mtsas;host=localhost","root","4114", {'RaiseError' => 1,'PrintError' => 1,'AutoCommit' => 1});

# Insert one row
#my $rows = $dbh->do("INSERT INTO emp VALUES ('100000','猪啊',6000,'1955-05-10','female')");

# query
my $sqr = $dbh->prepare("SELECT * FROM alter_splicing");
$sqr->execute();

while(my $ref = $sqr->fetchrow_hashref()) {
print "$ref->{'est_id'}\n";
print "$ref->{'chr'}\n";
print "$ref->{'sbjct'}\n";
print "$ref->{'position'}\n";
print "$ref->{'type'}\n";
print "$ref->{'est_numbers'}\n";

print "<br>";
}

$dbh->disconnect();

print "</body>";

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

3^# cobrawgl 发表于 2008-05-06 19:17

你调试一下，看看哪里出错了