perl访问postgresql

1 安装postgresql(8.3.5)
2 perl(5.8.8)
3 创建数据库 create database vas encoding 'EUC_CN"
4 在数据库vas中创建表 create table gate(id int, name varchar(20))
5 创建perl脚本pgsql.pl,文件使用unix文件格式（不要用utf-8等其他格式）

#!/usr/bin/perl -w

use DBI;

my $pg = DBI->connect("dbi:Pg:dbname=test", "postgres", "");

my $insert = $pg->prepare("insert into gate(id, name) values(2,'测试')");
$insert->execute();

$sql = $pg->prepare("select id,name from gate");
$sql->execute();
while(@data = $sql->fetchrow_array()){
  print @data;
  print "\n";
}
 
6 注意红字部分即可