[原创] Perl DBI (PostgreSQL) 学习

yhz61010

学习Perl的人可能都会用到DBI。网上的例子的大多是MySQL的，这回给大家发一个PostgreSQL版的。（其实和DB关系不大，只是不同的DB会影响不同的系统内置常量）
    以下是一个连接PostgreSQL的例子，展现了DBI的基本功能。仅供大家参考。

use DBI;# dbi:DriverName:database=database_name;host=hostname;port=port$data_source = "dbi:Pg:database=xxx;host=xxx.xxx.xxx.xxx;port=5432";$username    = "usr";$password    = "pwd";$dbh = DBI->connect($data_source, $username, $password,{ RaiseError => 1 }  )  or die;$sth = $dbh->prepare("select * from mst_user");$sth->execute();# The number of columns$col_num = $sth->{NUM_OF_FIELDS};# output columns@cols  = @{$sth->{NAME}};print join("\t",@cols),"\n";while ( @row_ary = $sth->fetchrow_array ) {for($i=0; $i<$col_num; $i++){my $len = length $cols[$i] ;printf "%-${len}s\t", $row_ary[$i];}print "\n";}$sth->finish;$dbh->disconnect();