我想使用“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