Perl-Rest::Client 和凭据

问题描述

有一个应用程序，其中凭据在使用 -u 选项的 curl 上不起作用，我必须像这样使用 -d 选项传递它们：

curl -v -k -X 'POST' --header 'Content-Type: application/json' --header 'Accept: application/json' -d '{ "auth_info":{ "username":"myuser","password":"mypwd" } }' 'https://.../rest/v1.0/auth'

使用 Perl 中的 rest::client，我可以使用会话标头发送凭据，但它仅在应用程序接受 curl 的 -u 参数时才有效。

所以我试图找到解决方案，通过 rest::client 来证明自己在这个应用程序中的身份

尝试过：

    %CONTENT_JSON = ( 
        'auth_info' => (
        'username' => 'myuser','password' => 'mypwd')
    );
    $CONTENT_JSON = encode_json(\%CONTENT_JSON);

但是我在返回查询时收到以下错误消息：

$VAR1 = {
          'service_status' => {
                                'details' => 'JSON request struct field is empty or invalid.','code' => 5437
                              }
        };

感谢任何帮助...

解决方法

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

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

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