『AskWan』

first, install  DBI and DBD::Pg module

come next two example I have writen for testing:

example one:
#!/usr/bin/perl -w #this is an example writen by askwan to insert into somedata to a table use DBI; my $dbh = DBI->connect("DBI:Pg:dbname="askwan.com";host=localhost", "postgres", "postgres", {AutoCommit => 0,'RaiseError' => 1,PrintError => 1}); # The AutoCommit attribute should always be explicitly set for(my $i=0;$i<100;$i++){ # execute INSERT query my $rows = $dbh->do("INSERT INTO test(id, name) VALUES ('id_$i', 'name_$i')"); print "$i row(s) inserted \n"; } my $sth = $dbh->prepare("SELECT id, name FROM test"); $sth->execute(); while(my $ref = $sth->fetchrow_hashref()) {     print "$ref->{'id'} is a $ref->{'name'}\n"; } $dbh->disconnect();

example two:
#!/usr/bin/perl -w #this is an example writen by askwan to query some info from PostgreSql use DBI; $dbname="askwan"; $host="localhost"; $port="5432"; $username="postgres"; $password="postgres"; $dbh = DBI->connect("dbi:Pg:dbname=$dbname;host=$host;port=$port;",                       $username,                       $password,                       {AutoCommit => 0, RaiseError => 1, PrintError => 0}                      ); $sth=$dbh->prepare('select datname,blks_read,blks_hit from pg_stat_database'); $sth->execute(); print sprintf("%-20s%-20s%-20s","datname","blks_read","blks_hit"),"\n"; print "-" x 60 ."\n"; my @data; my ($datname,$blk_read,$blks_hit); while(@data=$sth->fetchrow_array()) {      ($datname,$blk_read,$blks_hit)=@data;      print sprintf("%-20s%-20s%-20s","$datname","$blk_read","$blks_hit"),"\n"; } $dbh->disconnect();output :

datname             blks_read           blks_hit            
------------------------------------------------------------
template1           0                   0                   
template0           0                   0                   
postgres            136                 5955                
askwan              124                 7396

        

作者：askwan@『AskWan』
地址：http://www.askwan.com/use_DBD_Pg_to_connect_PostgreSQL_database/
可以转载,转载时请以链接形式注明作者和原始出处及本声明！