0

我有这个 perl 脚本

包装器.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Long;
use DBI;

# input params
my $end;
my $start;
my $url;
my @IP;
my $host = "localhost";
my $dbname = "flows";
my $username;
my $pass;
GetOptions      ("s|start=s" => \$start,
                 "e|end=s" => \$end,
                 "r|url=s" => \$url,
                 "ip|iplist=s" => \@IP,
                 "h|host=s" => \$host,
                 "db|dbname=s" => \$dbname,
                 "u|username=s" => \$username,
                 "p|pass=s" => \$pass);



# connect and send request to database

 my $dbh = DBI->connect("DBI:Pg:dbname=".$dbname.";host=".$host, $username, $pass, {'RaiseError' => 1});

当我跑步时

./wrapper.pl -h 10.0.0.3

我得到:

DBI connect('dbname=flows;host=10.0.0.3','',...) failed: could not connect to server: No route to host
Is the server running on host "10.0.0.3" and accepting
TCP/IP connections on port 5432?

我可以 ping 服务器,它也应该接受 5432 上的连接。由于登录凭据错误,我可能会收到此消息吗?

4

1 回答 1

0

首先你应该use DBD::Pg;use DBI;

其次添加DBI->errstr更正确的错误

我的 $dbh = DBI->connect("DBI:Pg:dbname=".$dbname.";host=".$host, $username, $pass, {'RaiseError' => 1}) 或死 DBI->错误;

第三,您应该能够在从 DBI 尝试之前从命令行连接到 psql

psql -h 10.0.0.3 -U username -d dbname -p 5432(请检查语法)

于 2013-03-27T09:28:56.467 回答