perl操作sybase

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

tar -xzvf DBI-1.631.tar.gz
cd DBI-1.631
perl Makefile.PL PREFIX=/redhat/perl
make
make test
make install

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();