Perl 连接Postgresql

 

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

按着指南安装很简单。

 

 

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

 

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

 

 

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

 

20. use strict;
21. use warnings;
22. use Data::Dumper;
23. use DBI;
25. my $dbh  = DBI->connect(
26.               q{dbi:Pg:dbname=test},
27.               q{postgres},
28.               q{},
29.               { AutoCommit => 0 }  );
30. my $sth = $dbh->prepare(qq{select * from weather});
31. $sth->execute();
32. while ( my $row = $sth->fetchrow_hashref() ) {
33.   print Dumper($row);
34. }
35. $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'
        };