Hola, explorer. Efectivamente, la respuesta XML del SOAP es la siguiente:
<?xml version="1.0" ?><S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/"><S:Body><ns4:SinteIED xmlns:ns2="http://ws.iid.sd.eedt.cl/SinteIED/MovimientosCliente" xmlns:ns3="http://ws.iid.sd.eedt.cl/SinteIED/Consultar" xmlns:ns4="http://ws.iid.sd.eedt.cl/SinteIED"><MovimientosCliente><Movimiento>
<NOMBRE>ALTIMAS</NOMBRE>
<MONTO>150</MONTO>
<PAIS_CODIGO>522</PAIS_CODIGO>
<GUIAS>
<LUGAR>CLAVE</LUGAR>
<FECHA>2016-12-02</FECHA>
<NRO>3344</NRO>
</GUIAS>
<DETALLE>
<LINEA>1</LINEA>
<PROD>SHAMPOO</PROD>
</DETALLE>
</Movimiento>
</MovimientosCliente>
</ns4:SinteIED >
</S:Body>
</S:Envelope>
Y tengo el siguiente
script para leer el mensaje, pero no sé cómo tomar en este caso el nodo GUIAS o el nodo DETALLE. Ese es mi problema en realidad... por eso lo estaba intentando con el XML::Simple, por favor, tu ayuda.
#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common;
use Data::Dumper;
my $userAgent = LWP::UserAgent->new();
my $message = '<?xml version="1.0" encoding="iso-8859-1"?>
<soapenv:Envelope
xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:con="http://ws.iid.sd.eedt.cl/Consultar">
<soapenv:Header/>
<soapenv:Body>
<con:Consultar>
<Desde>2016-10-01</Desde>
<Hasta>2016-11-10</Hasta>
</con:Consultar>
</soapenv:Body>
</soapenv:Envelope>';
my $request = HTTP::Request->new(POST => 'http://ws.iid.sd.eedt.cl/MovimientosCliente?wsdl');
$request->header(SOAPAction => '"http://ws.iid.sd.eedt.cl/"');
$request->content($message);
$request->content_type("text/xml; charset=iso-8859-1");
$response = $userAgent->request($request);
$response->as_string;
my $respuesta_decodificada = $response->decoded_content;
my @NOMBRE = $respuesta_decodificada =~ m{<NOMBRE>(.*?)</NOMBRE>}gsm;
my @MONTO = $respuesta_decodificada =~ m{<MONTO>(.*?)</MONTO>}gsm;
my @PAIS = $respuesta_decodificada =~ m{<PAIS >(.*?)</PAIS>}gsm;
$NReg=$#DESPACHO;
for($i=0 ; $i<=$NReg ; $i++)
{
my $NOMBRE = @NOMBRE[$i];
my $MONTO = @MONTO[$i];
my $PAIS = @PAIS[$i];
}
Desde ya, muchas gracias.
