连接到 Sybase DB 时出错

Question

我有一个连接到 Sybase 数据库服务器的 perl 脚本（服务器的别名 - MYDATABASESERVER）。我的代码是：

exec perl -w -x
#!perl

use Sybase::DBlib;
use Mail::Sendmail;
use Env qw(DSQUERY DBNAME DBUSER DBPASSWD);

$dbh = &execRemoteSQL($sql_text);

sub execRemoteSQL
{
my ($sqlText) = @_;
my ( $ret, $retS );
local ($dbh) = undef;


$dbh = new Sybase::DBlib $DBUSER, $DBPASSWD, $DSQUERY;
if ( !(defined $dbh) )
{
    print STDERR "execRemoteSQL(): Failed To Create DB Handle for :\n";
            print STDERR " SERVER    = $DSQUERY\n";
            print STDERR " DATABSE   = $DBNAME\n";
    exit(-1);
}
.
.
.

当我提供服务器名称为 MYDATABASESERVER（DSQUERY 的值）时，我在 If 语句中收到错误，但它正确连接到名称为 MYDB 的服务器。

想知道服务器名称长度是否有任何限制，或者是由于其他原因。

这是我收到的错误消息：

DB-Library error:
        Unknown host machine name.
execRemoteSQL(): Failed To Create DB Handle for :
 SERVER    = MYDATABASESERVER
 DATABSE   = my_db

服务器别名定义正确，因为我可以使用 isql 连接到数据库。

Answer 1

你可以试试下面的语法吗？ ：

$dbh = Sybase::DBlib->new( $DBUSER, $DBPASSWD, $DSQUERY );

Answer 2

我觉得这里的服务器名不会太长。

您的确切错误信息是什么？

可能在 Sybase 特定的“接口”配置文件中未正确定义 MYDATABASESERVER 服务器别名。它位于目录 $SYBASE/$SYBASE_OCS 中。 MYDATABASESERVER 是怎么说的（应该是 2 行）？

无论如何： 不要使用 DBLib，它真的很旧并且已被弃用。我认为 Sybperl/DBLib 和 DBD::Sybase 模块的维护者仍然只支持 Sybase::DBLib 代码，以使必须处理旧程序的客户端程序员的生活更轻松，并保持旧应用程序与新版本的兼容Sybase ASE。

您应该改用 DBI 和 DBD::Sybase。互联网上 99% 的 perl/sybase 代码都使用 DBI。