1

我想使用“plperl”从 PostgreSQL 过程/函数调用 RESTful Web 服务。我不能“不”使用 plperlu、plpython2u、JOOQ 或 Hibernate。

因此,我想使用以下网站中的“类似”“plperlu”PostgreSQL-proc 示例,但对于 plperl(或类似 plperl 的东西,它是 'not' plperlu、'not' plpython2u、'not' JOOQ 和 'not ' Hibernate): 从 PostgreSQL 过程/函数调用 RESTful Web 服务

我尝试了以下代码,但它不适用于 plperl,因为它可能仅适用于 plperlu 而不适用于 plperl(但我无法让 AWS 在我的 AWS-PostgreSQL-RDS 上安装 plperlu):

CREATE OR REPLACE FUNCTION restful.get()
RETURNS text
LANGUAGE plperl
SECURITY DEFINER
AS $function$
use REST::Client;
use Encode qw(encode);
my $client = REST::Client->new(); 
$client->getUseragent()->proxy( 'https', 'https://xdmactive.maxarmdm.com:8443/semarchy/api/rest/query/test/test' ); -- # use4 proxy authentication
$client->addHeader('Content-Type', 'application/json');  --   # headers
$client->addHeader('Api-Key', '9Yw_jmh.ey3rUlkzjsdueliokT1A_kh');  # headers
$client->GET('https://xdmactive.maxarmdm.com:8443/semarchy/api/rest/query/test/test'); -- # encoding
return $client->responseContent();
$function$

这是我得到的错误,它看起来“可能”是一个权限错误(但可能是 plperl vs plperlu):SQL 错误 [42601]:错误:无法在第 2 行将 REST/Client.pm 加载到 plperl 中。开始失败--编译在第 2 行中止。其中:编译 PL/Perl 函数“get”

以下是可供我在 AWS-PostgreSQL-RDS 中使用的所有“pg_available_extensions”的列表:

address_standardizer,  
address_standardizer_data_us,  
amcheck,  
apg_plan_mgmt,  
aurora_stat_utils,  
aws_commons,  
aws_ml,  
aws_s3,  
bloom,  
btree_gin,  
btree_gist,  
citext,  
cube,  
dblink,  
dict_int,  
dict_xsyn,  
earthdistance,  
fuzzystrmatch,  
hll,  
hstore,  
hstore_plperl,  
intagg,  
intarray,  
ip4r,  
isn,  
jsonb_plperl,  
log_fdw,  
ltree,  
orafce,  
pg_buffercache,  
pg_freespacemap
pg_hint_plan
pg_prewarm
pg_repack
pg_similarity
pg_stat_statements
pg_trgm
pg_visibility
pgaudit
pgcrypto
pgrouting
pgrowlocks
pgstattuple
pgtap
plcoffee
plls
plperl
plpgsql
plprofiler
pltcl
plv8
postgis
postgis_tiger_geocoder
postgis_topology
postgres_fdw
prefix
rds_activity_stream
sslinfo
tablefunc
test_parser
tsm_system_rows
tsm_system_time
unaccent
uuid-ossp
4

1 回答 1

0

加载模块需要从磁盘读取实现该模块的文件。受信任的 pl 语言无法从磁盘读取,这是使它们受到信任的主要因素之一。

您可以在代码切换到受信任模式之前预先读取文件,从而有效地将模块列入白名单。

plperl.on_init='require REST::Client;'

但是让 RDS 允许您这样做的机会非常低,原因与他们不允许您首先使用不受信任的 pl 语言相同的原因。

总体而言,托管产品不让您做您想做的事情的唯一解决方案就是不使用它们。

于 2020-10-14T02:28:47.480 回答