DBI Driver
- DBI(Data Base Interface),相信有學過資料結構的人應該不陌生,Data Base就像是一個資料庫,可供我們做查詢的動作,大致上可分為 File access, Excel, SQL...這邊我們不詳述每個Data Base的架構.我們主要探討如何透過Perl Wrapper 去call API,進行資料存取的動作.
API 參考 http://search.cpan.org/~timb/DBI/DBI.pm
- 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 });
- Driver Check,我們透過Check的方式,來抓取現有系統下,我們所能夠handle的Data Base
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
沒有留言:
張貼留言