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_useridn");?
  
  
??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
  
  
}?
 
 

获取到的数据结构为：