使用“ plperl”通过plperl pg_available_extensions从PostgreSQL过程/函数调用RESTful Web服务

问题描述

不确定如何（或在何处）运行“ plperl.on_init ='require REST :: Client';”在代码中？

下面的代码太累了：

CREATE OR REPLACE FUNCTION restful.get()
RETURNS text
LANGUAGE plperl
Security DEFINER
AS $function$
plperl.on_init='require REST::Client';
use REST::Client;
use Encode qw(encode);
my $client = REST::Client->new();
$client->getUseragent()->proxy( 'https','https://active.maxarmdm.com/semarchy/api/rest/query/Account/GD' ); 
$client->addHeader('Content-Type','application/json');      
$client->addHeader('Api-Key','9Yw_7lkj.ey3rUskhdfjk1VYZ1lskdfkT1A_pIxn');  
$client->GET('https://active.maxarmdm.com/semarchy/api/rest/query/Account/GD');  
return $client->responseContent();  
$function$

，我收到以下错误消息：

sql错误[42601]：错误：无法在EOF的第2行修改标量分配中的串联（。）或字符串 开始出错后不安全-在第3行中终止编译。 其中：PL / Perl函数“ get”的编译

希望我只是把“ plperl.on_init ='require REST :: Client';”代码行放在错误的位置（在函数/存储过程中），和/或也许还有另一种方法可以运行-执行“ plperl.on_init ='require REST :: Client';”可能会消除该错误？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）