免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 5199 | 回复: 4

Windows下使用Perl连接DB2 [复制链接]

论坛徽章:
0
发表于 2005-07-02 20:31 |显示全部楼层
本文是参考了<DB2 Magazine Quarter 1. 2005. VOLUME 10 NUMBER 1>;杂志里的<erls of Wisdom-Follow these simple steps to use the free Perl language with DB2>;一文,可以说是一个摘抄(不同的是文章是中文)
原文参见http://www.db2mag.com/story/showArticle.jhtml?articleID=59301551

1. Perl的DB2驱动
Perl语言本身就不多做介绍了。
1994年发布的DBI是Perl语言连接关系性数据库的标准。可以从dbi.perl.org获得DBI的源代码和文档。
IBM在1995年发布了对于Perl的DB2驱动,这个驱动是符合DBI标准的,在Perl里这个驱动称为DBD:B2 。可以从ibm.com/software/db2/perl获得DBD:B2驱动的最新信息。

注意:最近的DB2驱动需要至少Perl 5.005_03和DBI 1.21或以上的版本。

2. 准备环境
步骤如下
(1)安装Perl语言环境
Windows下可以从www.activestate.com获得Perl的安装包。
安装后可以使用perl -v看看Perl的版本信息。
DBI驱动和DBD:B2驱动都是作为Perl的附加模块使用ppm工具安装的。安装方法参见(2), (3),安装时最好先去ibm.com/software/db2/perl上看看ppm后面的参数有没有变化。

(2)安装DBI驱动
ppm install http://ftp.esoftmatic.com/outgoing/DBI/5.8.4/DBI.ppd

(3)安装DBD:B2驱动
ppm install http://ftp.esoftmatic.com/outgoing/DBI/5.8.4/DBD-DB2.ppd

(4)安装DB2 runtime client


3. 使用Perl连接DB2
(1)使用DBI函数DBI->;data_sources 来扫描DB2数据库目录并返回一个包含了有效数据源名称(DSN)的数组。
----------------datasources.pl-------------
#!/usr/lib/perl -w
#
# This perl script prints the list of cataloged DB2 data-sources
#
use DBI;
use DBD:B2;
use DBD:B2::Constants;

print "Operating Systems = $^O\n";
print "erl Binary = $^X\n";
print "erl Version = $]\n";
print "DBI Version = $DBI::VERSION\n";
print "DBD:B2 Version = $DBD:B2::VERSION\n\n";

my @DB2DataSources = DBI->;data_sources("DB2";

print "Available DB2 DSNs:\n\n";

foreach my $dsn ( @DB2DataSources )
{
        print " $dsn \n";
}
-------------------END----------------------

(2)获取db2数据库的信息
----------datasourceInfo.pl--------------------------
#!/usr/lib/perl -w
#
# This perl script prints the information DB2 database
#
use DBI;
use DBD:B2;
use DBD:B2::Constants;

my $dsn = 'dbi:DB2:SAMPLE';
my $uid = 'henry';
my $pwd = 'happyday';

my $dbh = DBI->;connect( $dsn, $uid, $pwd )           || die "$DBI::errstr";

print "Database Connection Information \n\n";
printf( "Server Instance     : %s\n", $dbh->;get_info( SQL_SERVER_NAME ) );
printf( "Database Server     : %s\n", $dbh->;get_info( SQL_DBMS_NAME ) );
printf( "Database Version    : %s\n", $dbh->;get_info( SQL_DBMS_VER ) );  
printf( "Database Alias      : %s\n", $dbh->;get_info( SQL_DATA_SOURCE_NAME ) );
printf( "Database Codepage   : %s\n", $dbh->;get_info( 2519 ) );
printf( "Application Codepage: %s\n", $dbh->;get_info( 2520 ) );
printf( "Authoriztion Id     : %s\n", $dbh->;get_info( SQL_USER_NAME ) );
printf( "Max Idntifier Len   : %s\n", $dbh->;get_info( SQL_MAX_IDENTIFIER_LEN ) );
printf( "Max Table Name Len  : %s\n", $dbh->;get_info( SQL_MAX_TABLE_NAME_LEN ) );
printf( "Max Index Size      : %s\n", $dbh->;get_info( SQL_MAX_INDEX_SIZE ) );
printf( "Max Columns in Table: %s\n", $dbh->;get_info( SQL_MAX_COLUMNS_IN_TABLE ) );
-------------------END----------------------

(3)获取db2数据库的元数据(比如, 表结构)
----------tableinfo.pl--------------------------
#!/usr/lib/perl -w
#
# This perl script prints the information of cataloged DB2 table
#
use DBI;
use DBD::DB2;
use DBD::DB2::Constants;

$dsn = 'dbi:DB2:SAMPLE';
$uid = 'henry';
$pwd = 'happyday';

# Connect to the SAMPLE database
$dbh = DBI->;connect( $dsn, $uid, $pwd )           || die "$DBI::errstr";

# Get the tables for schema HENRY
$sth = $dbh->;table_info( { 'TABLE_CSHEM' =>; "HENRY" } );

$table_counter = 0;
while ( @row = $sth->;fetchrow_array )
{
        $catalog = $row[0];
        $schema = $row[1];
        $table = $row[2];
       
        $table_counter++;
        printf( "Table %d %s\n", $table_counter, $table );
       
        # Now get the column information for this table
        $sth_col = $dbh->;column_info( $catalog, $schema, $table, '%' );
        if( $sth_col )
        {
                while( @row_col = $sth_col->;fetchrow_array )
                {
                        # @row_col has a lot more information. I'll just take
                        # these three fields as an example
                        $column_name = $row_col[3];
                        $type_name   = $row_col[5];
                        $column_size = $row_col[6];
                       
                        printf( "  %-24s%s(%s)\n", $column_name, $type_name, $column_size );
                }
               
                $sth_col->;finish();
        }
}

$sth->;finish();
$dbh->;disconnect;
-------------------END----------------------

(4)执行SQL
----------executesql.pl--------------------------
#!/usr/lib/perl -w
#
# This perl script manipulate DB2 table
#
use DBI;
use DBD::DB2;
use DBD::DB2::Constants;

$dsn = 'dbi:DB2:SAMPLE';
$uid = 'henry';
$pwd = 'happyday';

# Connect to the SAMPLE database
$dbh = DBI->;connect( $dsn, $uid, $pwd )           || die "$DBI::errstr";

# Prepare our insert statement
$sth = $dbh->;prepare( "INSERT INTO sales VALUES('2005-06-25', 'Tom', 'Beijing', 15)";
$sth->;execute();
$sth->;finish();
$dbh->;disconnect;
-------------------END----------------------

论坛徽章:
0
发表于 2005-07-03 19:53 |显示全部楼层

Windows下使用Perl连接DB2

虽说是摘抄,但也很不错,
支持

论坛徽章:
0
发表于 2005-07-04 23:41 |显示全部楼层

Windows下使用Perl连接DB2

抽空装个PERL练正则!

论坛徽章:
0
发表于 2005-07-05 03:35 |显示全部楼层

Windows下使用Perl连接DB2

save to my favorite la. thanks a lot.

论坛徽章:
0
发表于 2005-07-26 11:47 |显示全部楼层

Windows下使用Perl连接DB2

PERL是个好DD,就是包太多难得装
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP