Sybase DBに接続中にエラーが発生しました

Question

Sybase DBサーバ（MYDATABASESERVERサーバのエイリアス）に接続するperlスクリプトがあります。私のコードは次のとおりです。私はMYDATABASESERVER（DSQUERYの値）としてサーバー名を提供する場合

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); 
} 
. 
. 
. 

、私は、If文でエラーが出るが、それはMYDBとして名前のサーバに適切に接続されています。

サーバー名の長さに制約があるかどうかを知りたい場合、またはそれ以外の理由がある場合

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

を私はisqlを使用してDBに接続することですので、サーバーの別名が正しく定義されています。ここでは

は私が取得していますエラーmesssageです。

Answer 1

代わりに次の構文を試すことができますか？ ：

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

Answer 2

私はここではサーバー名の長さが長すぎるとは思わない。

正確なエラーメッセージは何ですか？

MYDATABASESERVERサーバーエイリアス名が、Sybase固有の「interfaces」構成ファイルで正しく定義されていない可能性があります。 dir $ SYBASE/$ SYBASE_OCSにあります。 MYDATABASESERVERについて何と言いますか（2行にする必要があります）？

いずれの場合も： DBLibを使用しないでください。実際には古く、廃止予定です。私は、Sybperl/DBLibとDBD :: Sybaseモジュールのメンテナーは、古いプログラムに対処しなければならないクライアントプログラマにとって、Sybase :: DBLibコードをサポートしていて、レガシーアプリケーションを新しいリリースと互換性を保つために、 Sybase ASE

代わりにDBIとDBD :: Sybaseを使用してください。インターネット上のすべてのperl/sybaseコードの99％がDBIを使用しています。