perl 测试脚本
作者：zlj2208
修改日期：2010年01月09日
转载请注明转自http://zlj2208.cublog.cn/
1.系统环境
系统版本：Fedora6X86_64
DB2版本：DB2v9.5.0.3
Perl版本：v5.8.8（系统自带）
Perl-DBI版本：perl-DBI-1.52-1.fc6（系统自带）
DBD-DB2版本：DBD-DB2-1.76
2.安装DBD-DB2
下载地址：http://search.cpan.org/~ibmtordb2/DBD-DB2-1.76/
导入下面环境变量：
根据自己的系统安装的路径，导入相应路径。
exportLD_LIBRARY_PATH=/opt/ibm/db2/V9.5/lib64
exportDB2_HOME=/opt/ibm/db2/V9.5
安装步骤：
perlMakefile.PL
make
maketest
makeinstall
模块安装位置：
cat/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/auto/DBD/DB2/.packlist
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/Bundle/DBD/DB2.pm
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/DBD/DB2.pm
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/DBD/DB2.pod
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/DBD/DB2/Constants.pm
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/auto/DBD/DB2/Constants/Constants.bs
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/auto/DBD/DB2/Constants/Constants.so
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/auto/DBD/DB2/Constants/autosplit.ix
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/auto/DBD/DB2/DB2.bs
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/auto/DBD/DB2/DB2.so
/usr/share/man/man3/Bundle::DBD::DB2.3pm
/usr/share/man/man3/DBD::DB2.3pm
3.测试脚本.
1).perl连接远程DB2服务器：
catperl_connect_to_remote_db2.pl
#!/usr/bin/perl-w
$userid="db2inst1";
$password="passwd";
$db="sample";
$port=50000;
#$hostname="localhost";
$hostname="xxx.xxx.xxx.xxx";
$protocol="tcpip";
$conn_string="dbi:DB2:DATABASE=$db;HOSTNAME=$hostname;PORT=$port;PROTOCOL=$protocol;UID=$userid;PWD=$password;";
useDBI;
$dbh=DBI->connect("$conn_string",{RaiseError=>0})or
die"Can'tconnecttodatabase$hostname:$db:$DBI::errstr";
my$stmt="select*fromemployee";
my$sth=$dbh->prepare($stmt);
$sth->execute();
my$col1;
$sth->bind_col(1,\$col1);
while($sth->fetch){print"$col1\n";}
$sth->finish();
$dbh->disconnect();
2).perl连接本地DB2服务器：
catperl_connect_to_local_db2.pl
#!/usr/bin/perl-w
$userid="db2inst1";
$password="passwd";
$db="sample";
useDBI;
$dbh=DBI->connect("dbi:DB2:$db","$userid","$password")or
die"Can'tconnectto$dbdatabase:$DBI::errstr";
my$stmt="select*fromemployee";
my$sth=$dbh->prepare($stmt);
$sth->execute();
my$col1;
$sth->bind_col(1,\$col1);
while($sth->fetch){print"$col1\n";}
$sth->finish();
$dbh->disconnect()
;