活动专区

活动公告

上车！GBase 8a开发者联盟发车了 技术福利、人脉资源全都有！

认证培训专区

认证培训资料

GBase 8s GDCA 认证培训课前准备

GBase 8a

其他

物化视图报错：references invalid table(s) or column(s) or function(s) or definer/invoker of view lack rights to use them

01-GBase 8s 事务型数据库 安装与卸载

GBase 8s

适配迁移

[GBase 8s 教程]GBase 8s 常用函数、表达式

操作系统：RHEL 7U6 64bit
软件需求：
1，GBase 8s CSDK
2，perl-5.16.3 
3，DBD-GBasedbt-2018.1031(Base on: DBD-Informix-2018.1031)
###1，系统环境确认
####1.1 perl版本
Linux下root用户通过rpm确认perl、perl-DBI、perl-Test-Pod、perl-Test-Pod-Coverage及perl-ExtUtils-MakeMaker均已经安装，如下：



```shell
[root@rhel7u6 perl]# rpm -qa perl perl-DBI perl-Test-Pod perl-Test-Pod-Coverage  perl-ExtUtils-MakeMaker
perl-5.16.3-293.el7.x86_64
perl-Test-Pod-1.48-3.el7.noarch
perl-ExtUtils-MakeMaker-6.68-3.el7.noarch
perl-DBI-1.627-4.el7.x86_64
perl-Test-Pod-Coverage-1.08-21.el7.noarch
```
####1.2 GBase 8s CSDK已经安装
Linux下gbasedbt用户通过esql -V命令确认GBase 8s CSDK已经安装，如下：
```shell
 [gbasedbt@rhel7u6 ~]$ esql -V
GBase CSDK Version 4.10, GBASE-ESQL Version 4.10.FC4G1_3.0.0
Software Serial Number AAA#B000000
```
###2，DBD-GBasedbt编译安装
####2.1 环境变量加载
加载GBase 8s CSDK环境变量，包含连接到GBase 8s数据库所需的GBASEDBTDIR、GBASEDBTSERVER、PATH、LD_LIBRARY_PATH，以及选用的字符集DB_LOCALE、CLIENT_LOCALE、LANG等。环境变量内容可保存为配置文件，如：gbase8s_csdk_env，以供调用。
```shell
export GBASEDBTDIR=/opt/gbasedbt				# GBase 8s CSDK安装目录
export GBASEDBTSERVER=gbase01					# 远程GBase 8s数据库实例名称
export PATH=$GBASEDBTDIR/bin:$PATH:$HOME/bin

export DB_LOCALE=zh_CN.utf8
export CLIENT_LOCALE=zh_CN.utf8

export LD_LIBRARY_PATH=$GBASEDBTDIR/lib:$GBASEDBTDIR/lib/esql:$LD_LIBRARY_PATH

# 以下4个环境变量仅用于编译时的测试，testdb应当存在
export DBI_DBNAME=testdb
export DBD_GBASEDBT_DATABASE=testdb
export DBD_GBASEDBT_USERNAME=gbasedbt
export DBD_GBASEDBT_PASSWORD=GBase123
```
####2.2 编译安装DBD-GBasedbt
将DBD-GBasedbt-2018.1031.tar.gz上传至GBase 8s CSDK所在的服务器上，使用root用户解压，加载环境变量文件gbase8s_csdk_env。
```shell
[root@rhel7u6 perl]#  .  gbase8s_csdk_env
[root@rhel7u6 perl]#  tar -zxvf DBD-GBasedbt-2018.1031.tar.gz
```
在生成的DBD-GBasedbt-2018.1031目录里执行perl Makefile.PL
```shell
[root@rhel7u6 DBD-GBasedbt-2018.1031]# perl Makefile.PL
[root@rhel7u6 DBD-GBasedbt-2018.1031]# make 
[root@rhel7u6 DBD-GBasedbt-2018.1031]# make install
```
###3，确认DBD::GBasedbt已经安装
通过命令查询DBD::GBasedbt组件已经安装，显示其版本号
```shell
[root@rhel7u6 ~]#  perl -MDBD::GBasedbt -le 'print DBD::GBasedbt->VERSION'
2018.1031
```
###4，Perl通过DBD::GBasedbt连接GBase 8s数据库测试
编写测试脚本程序perl_dbi_gbasedbt.pl，内容如下：
```perl
#!/usr/bin/perl

use warnings;
use strict;
use DBI;

# 连接到数据库 testdb
my $dbh = DBI->connect
          (
             "DBI:GBasedbt:testdb",
             'gbasedbt',
             'GBase123',
             { PrintError => 0, RaiseError => 1, AutoCommit => 0 }
          );

# 开始事务
$dbh->do("begin");

# 删除表及创建表
my $sth_d_tab = $dbh->prepare("drop table if exists perl_dbi_gbasedbt");
$sth_d_tab->execute();

my $sth_c_tab = $dbh->prepare("create table perl_dbi_gbasedbt (id int, name varchar(40))");
$sth_c_tab->execute();

# 插入数据
my $sth_i_tab = $dbh->prepare("insert into perl_dbi_gbasedbt values(1,'测试中文输入')");
$sth_i_tab->execute();


# 查询数据
my $sth_s_tab = $dbh->prepare("select first 10 id,name from perl_dbi_gbasedbt");
$sth_s_tab->execute();

while (my $row = $sth_s_tab->fetchrow_hashref())
{

   print sprintf("%d %-40s\n", $row->{id}, $row->{name});

}

# 提交事务，关闭数据库连接
$dbh->do("commit");
$dbh->disconnect();

exit 0;
```
perl perl_dbi_gbasedbt.pl执行并输出结果：
```shell
[root@rhel7u6 DBD-GBasedbt-2018.1031]# perl perl_dbi_gbasedbt.pl
1 测试中文输入
```
perl通过DBD::GBasedbt连接到GBase 8s数据库，测试成功。

GBase 8s数据库连接 – Perl(DBD::GBasedbt)

GBase 8s数据库连接 – Perl(DBD::GBasedbt)

评论

热门帖子