6

我可以使用以下命令成功创建到 Postgres 数据库的连接：

my $settings = {
    host => 'myhost',
    db => 'mydb',
    user => 'myuser',
    passwd => 'mypasswd'
};

my $connection = DBI->connect(
    'DBI:Pg:dbname=' . $settings->{'db'} . ';host=' . $settings->{'host'},
    $settings->{'user'},
    $settings->{'passwd'},
    {
        RaiseError => 1,
        ShowErrorStatement => 0,
        AutoCommit => 0
    }
) or die DBI->errstr;

但是我的 Perl 模块中留下了宝贵的登录凭据（是的，我更改了它们）。目前，我使用psql以交互方式发出查询。为了省去记住我的用户名/密码的麻烦，我将凭据放在权限为 600 的文件 (~/.pgpass) 中。文件如下所示：

# host:port:database:user:passwd
myhost:5432:mydb:myuser:mypasswd

如何安全地使用此文件 ( "$ENV{HOME}/.pgpass") 和DBI模块来隐藏我的凭据？可以做到吗？什么是最佳实践？

4

3 回答 3

11

是的！有更好的方法。

轻松在测试服务器和实时服务器之间切换。

  • 将密码保存在~/.pgpass(for psql& pg_dump)
  • ~/.pg_service.conf（或/etc/pg_service.conf）中的其他配置信息

例如：

#!/usr/bin/perl -T
use strict;
use warnings;
use DBI;

my $dbh = DBI->connect
(
    #"dbi:Pg:service=live",
    "dbi:Pg:service=test",
    undef,
    undef,
    {
        AutoCommit => 0,
        RaiseError => 1,
        PrintError => 0
    }
) or die DBI->errstr;

~/.pg_service.conf：

# http://www.postgresql.org/docs/9.2/static/libpq-pgservice.html
# /usr/local/share/postgresql/pg_service.conf.sample
# http://search.cpan.org/dist/DBD-Pg/Pg.pm
#

[test]
dbname=hotapp_test
user=hotusr_test
# localhost, no TCP nonsense needed:
host=/tmp

[live]
dbname=hotapp_live
user=hotusr_live
host=pgsql-server.example.org

〜/ .pgpass：

# http://www.postgresql.org/docs/9.2/static/libpq-pgpass.html
# hostname:port:database:username:password
localhost:5432:hotapp_test:hotusr_test:kq[O2Px7=g1
pgsql-server.example.org:5432:hotapp_live:hotusr_live:Unm£a7D(H
于 2013-11-14T14:24:34.083 回答
2

  1. ~/.pgpass将您的登录凭据放入根据上述问题调用的文件中。

  2. 要打开连接，您需要在主机、数据库和用户名中进行硬编码。但这没关系，因为至少您不需要在密码字段中编码。~/.pgpass此字段在您的文件中保持隐藏状态。

  3. 确保将连接实例的密码字段设置为undef。

这对我有用：

my $settings = {
    host => 'myhost',
    db => 'mydb',
    user => 'myuser'
};

my $connection = DBI->connect(
    'DBI:Pg:dbname=' . $settings->{'db'} . ';host=' . $settings->{'host'},
    $settings->{'user'},
    undef,
    {
        RaiseError => 1,
        ShowErrorStatement => 0,
        AutoCommit => 0
    }
) or die DBI->errstr;

连接成功建立是因为出于某种原因，至少我不知道，实例~/.pgpass在尝试连接时搜索文件。我知道这个文件有一些魔力，我只是不确定如何处理它。文档链接：

http://search.cpan.org/dist/DBI/DBI.pm#data_string_diff

请注意在该页面上搜索“pgpass”是如何不返回的？我拒绝阅读所有内容。嗯，也许有一天……

于 2013-05-16T10:53:51.110 回答
1 
open(my $fh, '<', "$ENV{HOME}/.pgpass") or die $!;

my $settings;
while (<>) {
   chomp;
   next if /^\s*(?:#.*)?\z/s;
   @{$settings}{qw( host port database user passwd )} = split /:/;
}

die "No settings" if !$settings;

任何能够运行脚本的用户仍然可以看到凭据。

于 2013-05-16T04:40:07.897 回答