从哈希引用中提取值

Question

我正在使用 Perl 和 SOAP::Lite 从名为 OTRS 的系统中提取票证信息。

目前，我们在 OTRS 上设置了一个名为 GetTicket 的 Web 服务。

我们已经设法让SOAP:Lite 连接到网络服务并提取票证信息。票证信息作为哈希参考返回。

我没有在代码中创建哈希引用，这正是返回的内容。如果我还没有创建该哈希引用，如何拆分它？

此时我们正在尝试使用foreach 遍历哈希引用。我会在完成过程中发布我的进度，但像往常一样，我们不胜感激。

Perl 脚本

#!perl -w

use SOAP::Lite;
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;

use Data::Dumper;
print Dumper(SOAP::Lite
    -> proxy('https://ost-otrstest.ostusa.com/otrs/nph-genericinterface.pl/Webservice/Test/GetTicket')
    -> GetTicket()
    -> result);

输出

$VAR1 = {
         'ErrorCode' => 'TicketGet.AuthFail'
         'ErrorMessage' => 'TicketGet: Authorization failing!'
        };
Press any key to continue...

编辑：添加转储程序并收到授权错误。我们确实有用户名和密码，目前我不知道该放在哪里。

Answer 1

SOAP::Lite 的许多http 功能都依赖于LWP::UserAgent，包括请求授权时的行为。

LWP::UserAgent 的文档是这样说的

[get_basic_credentials] 应该返回用户名和密码。它 应该返回一个空列表以中止身份验证解决方案 试图。子类可以重写这个方法来提示用户 信息。

所以你需要通过写一个新的SOAP::Transport::HTTP::Client::get_basic_credentials来重载LWP::UserAgent::get_basic_credentials。

SOAP::Transport 文档中描述了重载此方法。你需要写这个

BEGIN {
  sub SOAP::Transport::HTTP::Client::get_basic_credentials {
    return ('username', 'password');
  }
}

在您的程序中的任何位置。顶部可能是最整洁的。 （BEGIN 块强制在执行开始之前实现新方法定义，无论其在程序中的位置如何。）

我希望有一个更好的解决方案，因为我对这个解决方案不太满意：它是 Perl 编程的一个丑陋部分。您最好完全继承 SOAP::Lite 以使界面更整洁。

Answer 2

my $result = SOAP::Lite
    -> proxy('https://ost-otrstest.ostusa.com/otrs/nph-genericinterface.pl/Webservice/Test/GetTicket')
    -> GetTicket()
    -> result;

获取一个哈希值：

my $errorcode = $result->{ErrorCode}; # TicketGet.AuthFail

循环遍历它们：

foreach my $key (keys %$result) {
     print "$key: " . $result->{$key};
}