altibase perl dbd安装(hp-ux下)

环境

HP-UX 11.31 IA64

Perl 5.8.8

Altibase 4.3.9.158

 

说明：altibase perl dbd只能使用32位的altibase客户端，perl也要使用32位

安装

1、  安装altibase的32位客户端

2、  下载altibase的perl dbd驱动altibase-perlDBD.tar.gz

3、  解压
tar –zxvf altibase-perlDBD.tar.gz

4、  设置一些环境变量

export altibaseHOME=/home/chensq/altibase_client

export DBI_DSN=dbi:altibase:mydb
export DBI_USER=sys
export DBI_PASS=manager

5、  cd $altibaseHOME/lib

ln –s libodbccli_sl.sl libodbccli.so

6、  /opt/perl_32/bin/perl Makefile.PL

7、  make

8、  make install

 

安装确认

确认有下列安装文件：

/opt/perl_32/lib/site_perl/5.8.8/IA64.ARCHREV_0-thread-multi/DBD/altibase.pm

/opt/perl_32/lib/site_perl/5.8.8/IA64.ARCHREV_0-thread-multi/DBD/altibase/Changes.pm

/opt/perl_32/lib/site_perl/5.8.8/IA64.ARCHREV_0-thread-multi/auto/DBD/altibase/ altibase.bs

/opt/perl_32/lib/site_perl/5.8.8/IA64.ARCHREV_0-thread-multi/auto/DBD/altibase/altibase.so

测试

Test.pl

#!/usr/bin/perl

use DBI;

 

my $dbh=DBI->connect ("dbi:altibase:DSN=127.0.0.1;UID=sys;PWD=manager;CONNTYPE=1;NLS_USE=US7ASCII;PORT_NO=20300","","");

 

$result = $dbh->prepare("select table_id,table_name from system_.sys_tables_;");

$result -> execute();

my ($table_id,$table_name);

$result->bind_columns(undef,\$table_id,\$table_name);

while ($result->fetch()){

  print "$table_id,$table_name\n";

}

$result->finish();

 

$dbh->disconnect();

 

执行perl test.pl，如果能正确返回结果表明altibase perl dbd安装成功。