perl访问postgresql z

最新推荐文章于 2026-01-02 10:16:27 发布

转载最新推荐文章于 2026-01-02 10:16:27 发布 · 364 阅读

文章标签：

#postgresql #perl #insert #数据库 #encoding #database

ALL 同时被 2 个专栏收录

200 篇文章

订阅专栏

Perl

52 篇文章

订阅专栏

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 注意红字部分即可