如何使用 PERL 访问 sybase答案

【问题标题】：How to access sybase with PERL如何使用 PERL 访问 sybase
【发布时间】：2012-09-03 02:20:56
【问题描述】：

这是我目前所拥有的。我无法创建数据库连接。

#!/usr/local/bin/perl
require "sybutil.pl";
use Sybase::DBlib;
use DBI;
my $dbhandle=&opendb;
sub opendb{
    my $server ="abc.nam.aa.net";
    my $user = "sam";
    my $password = "abc123";
    #print "Connecting to $server as $user and $password\n";
    my $dbfh= new Sybase::DBlib($user, $password, $server);
    if(!defined($dbfh)) {
        die("Cannot connect to server.\n");
    }
    printf "Open database '%s' with id '%s' successful\n", $server, $user;
    return $dbfh;
}

如何使用 PERL 访问 sybase？

【问题讨论】：

您正在使用 DBI，但实际上并未使用它。您是否需要 Sybase::DBlib？或者您可以将 DBI 与 DBD::sybase 结合使用吗？ ` 使用 DBI； $dbh = DBI->connect("dbi:Sybase:", $user, $passwd);`
是的，我可以移除 DBI。我必须使用 Sybase::DBlib 来访问数据库，但我不知道 $server 的格式，它是否包含端口或仅包含主机名，您有任何关于此的示例吗？提前致谢。

标签： perl sybase

【解决方案1】：

我记得，$server 的格式应该与该特定服务器的接口文件（$SYBASE/interfaces 或 %SYBASE%/sql.ini）中的条目相同。它通常与查询 select @@servername 返回的值相同

主机名/ip 和端口列在接口文件中，Sybase 库将使用该文件进行查找。

更多信息和代码示例可以在Michael Peppler's site找到。 Michael 维护着 Sybperl 邮件列表，他的网站上确实有大量信息。

【讨论】：