Chinaunix首页 | 论坛 | 博客
  • 博客访问: 213893
  • 博文数量: 13
  • 博客积分: 3327
  • 博客等级: 中校
  • 技术积分: 525
  • 用 户 组: 普通用户
  • 注册时间: 2005-12-22 11:36
文章分类

全部博文(13)

文章存档

2012年(2)

2011年(10)

2010年(1)

我的朋友

分类: 数据库开发技术

2011-11-18 01:16:55

环境

HP-UX 11.31 IA64

Perl 5.8.8

Altibase 4.3.9.158

 

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


安装

1、  安装altibase32位客户端

2、  下载altibaseperl 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安装成功。

阅读(1074) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~
评论热议
请登录后评论。

登录 注册