2010年2月22日 星期一

DBI Driver

  1. DBI(Data Base Interface),相信有學過資料結構的人應該不陌生,Data Base就像是一個資料庫,可供我們做查詢的動作,大致上可分為 File access, Excel, SQL...這邊我們不詳述每個Data Base的架構.我們主要探討如何透過Perl Wrapper 去call API,進行資料存取的動作.
  2. API 參考 http://search.cpan.org/~timb/DBI/DBI.pm
  3. Data Base Line 最簡單就是發出 request 給 Server,Server在根據我們所下的request 在response我們所要的結果,有些資料庫連線必須透過加密解密的動作,如網路的表單查詢... 如果只是自己host端,只友我們可以access的話,我們就不需要做到加密解密的動作. openSSL 加密/解密 傳輸 http://csc.ocean-pioneer.com/docum/ssl_basic.html http://www.openssl.org/ 最簡單的方式,就是輸入使用者名稱跟密碼,透過明碼加密的方式. $dbh = DBI->connect($dsn, $user, $password, { RaiseError => 1, AutoCommit => 0 });
  4. Driver Check,我們透過Check的方式,來抓取現有系統下,我們所能夠handle的Data Base
  5. sample code for "DBI_Driver.pl"
    #!/usr/bin/perl -w use DBI; use strict; use warnings; DBIDriverTest(); sub DBIDriverTest{ my @drivers = DBI->available_drivers(); die "No drivers found!\n" unless @drivers; # should never happen ### Iterate through the drivers and list the data sources for each one foreach my $driver ( @drivers ) { print "Driver: $driver\n"; my @dataSources = DBI->data_sources( $driver ); foreach my $dataSource ( @dataSources ) { print "\tData Source is $dataSource\n"; } print "\n"; } }
      執行結果如下
      程式碼下載
    http://sites.google.com/site/funningboy/perl_code/DBI_Driver.pl?attredirects=0&d=1

    沒有留言:

    張貼留言