2

我正在尝试在 postgresql 的 PL/perl 触发器中使用环境变量（例如 HOME），它似乎是空的。

在终端中运行printenv | grep HOME会返回所需的路径。

我将触发器定义为

CREATE EXTENSION IF NOT EXISTS plperlu;

CREATE OR REPLACE FUNCTION update_solved() RETURNS trigger AS $update_solved$
  elog(NOTICE, "Hello");
  elog(NOTICE, $ENV{'HOME'});

  return;
$update_solved$ LANGUAGE plperlu;

当查询激活触发器时，我得到输出

NOTICE:  Hello
NOTICE:

我检查了脚本中 %ENV 包含的内容（使用use Data::Dumper; elog(NOTICE, Dumper(%ENV));：

$VAR1 = 'LANG';
$VAR2 = 'en_US.UTF-8';
$VAR3 = 'LC_TIME';
$VAR4 = 'C';
$VAR5 = 'LC_MONETARY';
$VAR6 = 'C';
$VAR7 = 'PGSYSCONFDIR';
$VAR8 = '/etc/postgresql-common';
$VAR9 = 'PG_GRANDPARENT_PID';
$VAR10 = '513';
$VAR11 = 'PGLOCALEDIR';
$VAR12 = '/usr/share/locale';
$VAR13 = 'LC_CTYPE';
$VAR14 = 'en_US.UTF-8';
$VAR15 = 'LC_COLLATE';
$VAR16 = 'en_US.UTF-8';
$VAR17 = 'PGDATA';
$VAR18 = '/var/lib/postgresql/9.6/main';
$VAR19 = 'LC_MESSAGES';
$VAR20 = 'en_US.UTF-8';
$VAR21 = 'LC_NUMERIC';
$VAR22 = 'C';
$VAR23 = 'PWD';
$VAR24 = '/var/lib/postgresql';
$VAR25 = 'PG_OOM_ADJUST_FILE';
$VAR26 = '/proc/self/oom_score_adj';

您知道如何设置终端会话中定义的环境变量，以便在 PL/perl 触发器中使用吗？

4

1 回答 1

0

尽管您正确地调用了 PL/Perl 的不受信任的 plperlu 变体，但初始环境仍然是与正常“受信任”PL/Perl 相同的受限环境。

一种解决方案是运行一个子shell，然后初始化它的环境。就像是：

my $home = `bash -lc "echo \$HOME"`;

您可能需要调整 bash 的参数以获得您想要的。上面的命令显式运行 bash，因为我不确定你将拥有什么默认 shell，并且你提到了你的 .bashrc，所以可能需要 -l 来确保它被读取。

您还可以从系统上的任意文本文件中显式读取您想要的信息，这可能比弄乱环境变量更容易。

于 2018-01-22T19:41:07.413 回答