` `IO::Socket::INET: connect:连接JDBC数据库时拒绝连接`

Question

我是Perl新手，有一个用于数据库连接的脚本

sub db_connect {
    my ($database, $user, $password) = @_;

    my $driver = "JDBC";
    my $port = 14000;

    my $dsn = "dbi:JDBC:hostname=localhost:14000; url=jdbc:hsqldb:hsql://localhost:1111/$database;jdbc_character_set=ASCII";

    my $db_handler = DBI->connect($dsn, $user, $password ) or die $DBI::errstr;

    print "DB connected\n";
    return $db_handler;
}

以下是错误：-

process name:- com.vizdom.dbd.jdbc.ServerDBI connect('hostname=localhost:14000;url=jdbc:hsqldb:hsql://localhost:1111/EciToolDB;jdbc_character_set=ASCII','SA',...) failed: Failed to open socket to server: IO::Socket::INET: connect: Connection refused at ../lib/utils.pl line 66
Failed to open socket to server: IO::Socket::INET: connect: Connection refused at ../lib/utils.pl line 66.

Answer 1

根据DBD::JDBC docs，您需要运行java服务器进程才能建立上述连接。看起来该进程在您尝试连接的端口上没有响应。

java -Djdbc.drivers=foo.bar.Driver -Ddbd.port=14000 com.vizdom.dbd.jdbc.Server