当前位置:首页 > 开发 > 编程语言 > 编程 > 正文

perl连接数据库

发表于: 2015-07-20   作者:zengshaotao   来源:转载   浏览:
摘要: 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和

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

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

  print "Available DB2 DSNs: ";

  foreach my $dsn ( @DB2DataSources )
  {
  print " $dsn ";
  }
  -------------------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 ";
  printf( "Server Instance : %s ", $dbh->get_info( SQL_SERVER_NAME ) );
  printf( "Database Server : %s ", $dbh->get_info( SQL_DBMS_NAME ) );
  printf( "Database Version : %s ", $dbh->get_info( SQL_DBMS_VER ) ); 
  printf( "Database Alias : %s ", $dbh->get_info( SQL_DATA_SOURCE_NAME ) );
  printf( "Database Codepage : %s ", $dbh->get_info( 2519 ) );
  printf( "Application Codepage: %s ", $dbh->get_info( 2520 ) );
  printf( "Authoriztion Id : %s ", $dbh->get_info( SQL_USER_NAME ) );
  printf( "Max Idntifier Len : %s ", $dbh->get_info( SQL_MAX_IDENTIFIER_LEN ) );
  printf( "Max Table Name Len : %s ", $dbh->get_info( SQL_MAX_TABLE_NAME_LEN ) );
  printf( "Max Index Size : %s ", $dbh->get_info( SQL_MAX_INDEX_SIZE ) );
  printf( "Max Columns in Table: %s ", $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 ", $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) ", $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----------------------

  本文是摘抄杂志里的一文,原作者Michael Hoy & Grant Hutchison
  原文参见http://www.db2mag.com/story/showArticle.jhtml?articleID=59301551

perl连接数据库

  • 0

    开心

    开心

  • 0

    板砖

    板砖

  • 0

    感动

    感动

  • 0

    有用

    有用

  • 0

    疑问

    疑问

  • 0

    难过

    难过

  • 0

    无聊

    无聊

  • 0

    震惊

    震惊

编辑推荐
谁能解释一下什么是ADO?师傅提问的时候,我们理解的还不够深. ADO(ActiveX Data Objects,ActiveX数据
大多数数据库接口依赖于某些数据库连接对象,它们好像应用程序代码和数据库之间的桥梁。通常,一个
谁能解释一下什么是ADO?师傅提问的时候,我们理解的还不够深. ADO(ActiveX Data Objects,ActiveX数据
需要按照DBI模块,如果访问特定的数据库如MySQL还需要安装特定的模块如DBI::MySQL…… Using Databas
在本文中,我们将学习如何编写简单的 Perl 程序来提取或操作 IBM® DB2® Universal Database™(DB2
在本文中,我们将学习如何编写简单的 Perl 程序来提取或操作 IBM® DB2® Universal Database™(DB2
复习了~~~ 在之前,我对中的内连接和外连接所得出的数据集不是很清楚。这几天重新温习了一下SQL的书
********************************************************************************************
ODBC配置 1安装mysql-connector-odbc <!--[if !supportLists]-->A. A. <!--[endif]-->
1 首先要做的是在sql新建查询里输入 exec sys.sp_readerrorlog 0, 1, 'listening' 注意:一般的sql2
版权所有 IT知识库 CopyRight © 2009-2015 IT知识库 IT610.com , All Rights Reserved. 京ICP备09083238号