1

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

#!/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？

4

1 回答 1

1

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

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

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

于 2012-09-12T16:04:29.060 回答