Question

我需要在perl中解析SOAP响应：

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
   <soapenv:Header xmlns:iden="http://identifycaller.customermanagement.schema.amx.com"/>
   <soapenv:Body xmlns:iden="http://identifycaller.customermanagement.schema.amx.com">
      <ns2:Fault xmlns:ns2="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns3="http://www.w3.org/2003/05/soap-envelope">
         <faultcode>ns2:server</faultcode>
         <faultstring>Error interno del servicio. Por favor contacte al administrador.    </faultstring>
         <detail>
            <ns2:InternalSystemErrorException xmlns:ns2="http://commonsexceptions.schema.amx.com">
               <ns2:errorCode>1049581</ns2:errorCode>
               <ns2:errorMsg>Error tecnico</ns2:errorMsg>
               <ns2:message>Error interno del servicio. Por favor contacte al administrador.</ns2:message>
            </ns2:InternalSystemErrorException>
         </detail>
      </ns2:Fault>
   </soapenv:Body>
</soapenv:Envelope>

我的代码：

my $xml = $response->content;
my $dom = XML::LibXML->load_xml( string => (\$xml) );        

my $xpc = XML::LibXML::XPathContext->new($dom);
$xpc->registerNs('ns2', 'http://commonsexceptions.schema.amx.com');

my $errorCode = $xpc->findvalue('/*/ns2:errorCode');
my $errorMessage = $xpc->findvalue('/*/ns2:message');

print "Codigo $errorCode: $errorMessage\n";

我无法获取正确的XPATH表达式来获取ns2：errorCode和ns2：message。我已经阅读了很多答案，并将继续玩这个，但时间越来越短。

我在windows下使用perl 5.16，但计划在solaris下使用perl 5.8.4进行部署。我也在使用XML :: LibXML。

Answer 1

我很高兴从XPath语句中删除'*'有效。我相信我可以提供更详细的解释。您的原始XPath语句在根节点下面寻找ns2:errorCode和ns2:message一级。通过从XPath中删除星号并使用//快捷方式开始搜索，您实际上正在搜索整个文档中的任何元素名称ns2:errorCode和ns2:message。

一方面注意，这实际上效率较低，因为解析器必须遍历所有元素。更有效的XPath语句是/soapenv:Envelope/soapenv:Body/ns2:Fault/detail/ns2:InternalSystemErrorException/ns2:errorCode和ns2:message。通过指定完整路径，您可以准确地告诉解析器在哪里查找节点。看看this page上的第9点。

使用LibXML解析perl中的SOAP响应

1 个答案: