perl - 如何在 REST::Client 模块中打印 responseXpath () 的内容

Question

我正在使用REST::Client perl 模块来测试我的 REST 服务器。我想像往常一样打印 REST 响应 xml

目前我正在使用

print $client->responseContent() 

在一行中打印 xml：

<?xml version="1.0" encoding="UTF-8" standalone="yes"?><ns2:messageReference xmlns:ns2="urn:com:test:xml:rest:mds:1"><messageId>775775</messageId></ns2:messageReference>

该REST::Client模块还通过 为正文内容返回 xpath 上下文$client->responseXpath()，但我找不到将它与toString()函数 from一起使用的方法XML::LibXML，它允许根据需要打印它：

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
  <ns2:messageReference xmlns:ns2="urn:com:test:xml:rest:mds:1">
    <messageId>775775</messageId>
  </ns2:messageReference>

Answer 1

$client->responseContent()按原样输出响应，如果您想美化它，请使用 XML::LibXML

my $dom = XML::LibXML->load_xml(string => $client->responseContent());
print $dom->toString();