perl操作sybase

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

设置环境变量

export PERL5LIB=:/redhat/perl/lib64/perl5

安装DBI

tar -xzvf DBI-1.631.tar.gz

cd DBI-1.631

perl Makefile.PL PREFIX=/redhat/perl

make

make test

make install

安装DBD

tar -xzvf DBD-Sybase-1.15.tar.gz

cd /redhat/mahy/DBD-Sybase-1.15

perl Makefile.PL MP_AP_PREFIX=/redhat/sybase/OCS-15_0/perl PREFIX=/redhat/perl

make

make test

make install

脚本：

#!/usr/bin/perl

use strict;

use POSIX qw(strftime);

use DBI;

my $dbh = DBI->connect('dbi:Sybase:server=TESTDB;charset=cp936','USERTEST','USERTEST')|| die "Database connection not made: $DBI::errstr";

my $test_sql = qq{

SELECT count (*) AS num_a,

sum (column_2) AS num_b from TEST_DATA

};

my $sth = $dbh->prepare( $test_sql );

my ($num_a,$num_b);

$sth->execute();

$sth->bind_columns( \$num_a, \$num_b);

while( $sth->fetch() ) {

print $num_a;

print $num_b;

}

$sth->finish();

$dbh->disconnect();