如何使用PERL访问sybase

Question

以下是我迄今为止所拥有的。我无法创建数据库连接。

#!/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 $passwordn";
    my $dbfh= new Sybase::DBlib($user, $password, $server);
    if(!defined($dbfh)) {
        die("Cannot connect to server.n");
    }
    printf "Open database '%s' with id '%s' successfuln", $server, $user;
    return $dbfh;
}

如何使用PERL访问sybase？

Answer 1

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

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

关于这方面的更多信息以及代码示例可以在Michael Peppler的网站上找到。Michael维护着Sybperl邮件列表，在他的网站上确实有大量的信息。