Convertir Mensaje SOAP....
![Nota Nota](https://perlenespanol.com/foro/styles/prosilver/imageset/icon_post_target.gif)
Hola Perlianos:
Tengo un script que envía un mensaje SOAP a un servidor y recibo respuesta a través del Web Service; mi pregunta es:
¿Cómo puedo convertir "La Respuesta", que viene en XML a una estructura de datos en Perl? Este es mi script:
Lo que deseo hacer es capturar y luego desplegar la información de la consulta, para posteriormente pasarla a una tabla MySQL, ¿¿¿se puede hacer esto???
De antemano, muchas gracias por sus tips,
Caribesoft...
Tengo un script que envía un mensaje SOAP a un servidor y recibo respuesta a través del Web Service; mi pregunta es:
¿Cómo puedo convertir "La Respuesta", que viene en XML a una estructura de datos en Perl? Este es mi script:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use strict;
- use LWP::UserAgent;
- use HTTP::Request::Common;
- print "Content-Type: text/xml; charset=utf-8";
- my $barco = 'ARGOSY';
- my $manif = '465';
- my $usuario = 'API940504EPA';
- my $message = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
- <soap:Envelope xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\"
- xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\"
- xmlns:soap=\"http://schemas.xmlsoap.org/soap/envelope/\">
- <soap:Header>
- <EncabezadoSOAP xmlns=\"http://Recintos/ServiciosWebXml/\">
- <idUsuario>$usuario</idUsuario>
- <firma>1239</firma>
- <ipCliente></ipCliente>
- </EncabezadoSOAP>
- </soap:Header>
- <soap:Body>
- <consultaUnManifiesto xmlns=\"http://Recintos/ServiciosWebXml/\">
- <manifiesto>$manif</manifiesto>
- <buque>$barco</buque>
- </consultaUnManifiesto>
- </soap:Body>
- </soap:Envelope>";
- my $userAgent = LWP::UserAgent->new();
- my $request = HTTP::Request->new(POST => 'http://192.168.240.148/wsrefis/RecintosFis.asmx?WSDL');
- $request->header(SOAPAction => '"http://Recintos/ServiciosWebXml/consultaUnManifiesto"');
- $request->content($message);
- $request->content_type("text/xml; charset=utf-8");
- my $response = $userAgent->request($request);
- if($response->code == 200) {
- print $response->as_string;
- }
- else {
- print $response->error_as_HTML;
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Lo que deseo hacer es capturar y luego desplegar la información de la consulta, para posteriormente pasarla a una tabla MySQL, ¿¿¿se puede hacer esto???
De antemano, muchas gracias por sus tips,
Caribesoft...