Prayer

本文是參考了<DB2 Magazine Quarter 1. 2005. VOLUME 10 NUMBER 1>;雜志里的<Perls 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::DB2 。可以從ibm.com/software/db2/perl獲得DBD::DB2驅動的最新信息。

注意：最近的DB2驅動需要至少Perl 5.005_03和DBI 1.21或以上的版本。

2. 準備環境
步驟如下
(1)安裝Perl語言環境
Windows下可以從www.activestate.com獲得Perl的安裝包。
安裝后可以使用perl -v看看Perl的版本信息。
DBI驅動和DBD::DB2驅動都是作為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::DB2驅動
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::DB2;
use DBD::DB2::Constants;

print "Operating Systems = $^O\n";
print "Perl Binary = $^X\n";
print "Perl Version = $]\n";
print "DBI Version = $DBI::VERSION\n";
print "DBD::DB2 Version = $DBD::DB2::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::DB2;
use DBD::DB2::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----------------------