perl操作postgresql

 利用perl的DBI很容易操作postgresql数据库，方式很操作Mysql基本一致。

#/usr/bin/perl -w
use strict;
use Data::Dumper;
use DBI;
use DBD::Pg;

my $dbname='zabbix';
my $uname='zabbix';
my $pw='zabbix';
my $host='192.168.65.219';
my $port="5432";

my $dbh=DBI->connect("dbi:Pg:dbname=$dbname;host=$host;port=$port",$uname,$pw,{AutoCommit => 1});

my $sth=$dbh->prepare("select userid,alias,name,surname,passwd from users");
$sth->execute();

#my @data;
#以数组的形式存放数值，但如果有多个字段的话，操作起来不方便，只能用数组的下标来取值，当字段顺序发生变化的时候，也需要相应的更改程序
#while(@data = $sth -> fetchrow_array())
#{
#  printf("$data[0]   $data[1]\n");
#}

my $row;
#my $key,$value;
my %row_hash;
while($row = $sth -> fetchrow_hashref)
{
  print Dumper($row);
  my $zb_name=$row -> {name};
  my $zb_userid=$row -> {userid};
#  printf("$zb_name    $zb_userid\n");

}

获取到的数据结构为：