使用perl连接和 *** 作postgresql数据库

概述使用环境：linux OpenSUSE 1）检查安装环境    （1） 查找DBI：zypper search DBI               安装DBI：zypper search perl-DBI    （2） 查找DBD Pg：zypper search DBD              安装DBD Pg：zypper install perl-DBD-Pg 2)   编写perl脚本：

使用环境：linux OpenSUSE

1）检查安装环境
   （1） 查找DBI：zypper search DBI

              安装DBI：zypper search perl-DBI
   （2） 查找DBD Pg：zypper search DBD
             安装DBD Pg：zypper install perl-DBD-Pg

2)   编写perl脚本：

#! /usr/bin/perl
use strict;
use Data::Dumper;            --用于select返回数据集 
use DBI;
my $driver="Pg";
my $database_name = "xxxx";
my $host = "localhost";    --"IP adrress"
my $port= "5432";
my $database ="dbi:$driver:dbname=$database_name;host=$host;port=$port";   -- 构造
my $db_user = "postgres";        --用户名  
my $db_passwd = "postgres";   --密码
## 连接.
#my $dbh=DBI->connect("dbi:$driver:dbname=$database_name;host=$host;port=$port",$db_user,$db_passwd,{ raiseerror => 1,autoCommit => 0 }) or dIE $DBI::errstr;     --如果不构造前面的database，可以使用这句直接连接数据库。其中autoCommit表示是否自动提交
my $dbh=DBI->connect($database,$db_passwd) or dIE "can''t connect!";    -- 使用构造的database来连接数据库，autoCommit默认为1
if ($dbh)
{          print "pgconnect ok! \n";
           print "my $dbh->port(); \n";
}else{

          print "pgconnect false! \n";
           print "my $dbh->port(); \n";
}

my $sth = $dbh->prepare("select * from student " )or dIE "Syntax error:$!\n";   -- 查询
$sth->execute();           --执行

while(my $row=$sth->fetchrow_hashref())  --获取select的结果集
{
    print Dumper($row);
}
my $sth = $dbh->prepare("insert into student values(3,'zhang','m') " )or dIE "Syntax error:$!\n"; --插入数据
$sth->execute();

my $sth = $dbh->prepare(qq{delete from student where ID = 3})or dIE "Syntax error:$!\n";   --删除数据 $sth->execute(); $dbh->disconnect();    --关闭数据库 总结

以上是内存溢出为你收集整理的使用perl连接和 *** 作postgresql数据库全部内容，希望文章能够帮你解决使用perl连接和 *** 作postgresql数据库所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。