- 论坛徽章:
- 0
|
再麻烦一下,现在我想测试一下是否能连上另一台主机的mysql数据库,那台主机的IP为159.226.49.53端口为3306,数据库名为agentlevel,用户名和密码都为test
我自己写了一段测试的代码,如下,但一运行就整个停顿在那里,不退出,也没有任何输出,只能强行退出,所以求救这里的达人,谁能帮我解决这个问题,谢谢了先!
#!usr/bin/perl -w
use strict;
use DBI;
#定义数据库名称；
my $database_name = "agentlevel;host=159.226.49.53;port=3306";
# 定DBI联接语句；
my $database ="dbi:mysql:dbname=$database_name";
#定义用户名、口令；
my $db_user = "test";
my $db_password = "test";
### 连接.
my $dbh=DBI->connect($database,$db_user,$db_password) or die "can't connect!";
if ($dbh)
{
print "mysqlconnect ok!\n";
print "my $dbh->port();\n";
}
else
{print "mysqlconnect false!\n";
}
##$dbh=DBI->disconnect; |
|
免费注册
楼主: hyq_111
发表于 2006-11-30 15:41
