Perl 连接Postgresql

最新推荐文章于 2024-06-06 06:13:04 发布

Aylazhang

最新推荐文章于 2024-06-06 06:13:04 发布

阅读量1.9k

点赞数

本文链接：https://blog.csdn.net/Aylazhang/article/details/3125513

版权

今天不忙，就装了一个postgresql来玩玩。

按着指南安装很简单。

后来我需要用程序测试一下，我的程序跟postgresql在同一台机器上。

另外DBD::Pg也要安装一下（这个模块对version.pm有依赖，所以需要安装version.pm）。虽然我已经有了DBI。

之后简单测试了一下，好用：

 
 use strict;
use warnings;
use Data::Dumper;
use DBI;
my $dbh  = DBI->connect(
              q{dbi:Pg:dbname=test},
              q{postgres},
              q{},
              { AutoCommit => 0 }  );
my $sth = $dbh->prepare(qq{select * from weather});
$sth->execute();
while ( my $row = $sth->fetchrow_hashref() ) {
  print Dumper($row);
}
$dbh->disconnect();
 

输出：

$VAR1 = {
          'city' => 'San Francisco',
          'temp_lo' => '41',
          'date' => '1994-11-29',
          'temp_hi' => '55',
          'prcp' => '0'
        };
$VAR1 = {
          'city' => 'San Francisco',
          'temp_lo' => '46',
          'date' => '1994-11-27',
          'temp_hi' => '55',
          'prcp' => '0.25'
        };