Foro - Perl en Español

por **caribesoft** » 2006-07-11 10:08 @464

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:

Sintáxis: [ Descargar ] [ Ocultar ]

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...

#!/usr/bin/perl -l
use XML::Simple;
use Data::Dumper;     # Para el volcado de la estructura
 
my $xml_crudo = <<XML;
<?xml version="1.0" encoding="UTF-8"?>
<respuesta>
        <item numero="1">
                <cliente>
                        <nombre>Joaquin Ferrero</nombre>
                        <domicilio>Angustias, 13</domicilio>
                        <postal>47001</postal>
                </cliente>
                <cliente>
                        <nombre>Adosio Perez</nombre>
                        <domicilio>Angustias, 15</domicilio>
                        <postal>47001</postal>
                </cliente>
        </item>
        <item numero="3">
                <cliente>
                        <nombre>Andrea Siguenza</nombre>
                        <domicilio>Corral, 123</domicilio>
                        <postal>47021</postal>
                        </cliente>
        </item>
</respuesta>
XML
 
my $xml = XMLin( $xml_crudo, ForceArray => [qw(item cliente)] );
 
print Dumper $xml;  # Saca la estructura Perl leída
 
print $xml->{item}[1]{cliente}[0]{nombre};
 
__OUTPUT__
$VAR1 = {
          'item' => [
                    {
                      'numero' => '1',
                      'cliente' => [
                                   {
                                     'domicilio' => 'Angustias, 13',
                                     'postal' => '47001',
                                     'nombre' => 'Joaquin Ferrero'
                                   },
                                   {
                                     'domicilio' => 'Angustias, 15',
                                     'postal' => '47001',
                                     'nombre' => 'Adosio Perez'
                                   }
                                 ]
                    },
                    {
                      'numero' => '3',
                      'cliente' => [
                                   {
                                     'domicilio' => 'Corral, 123',
                                     'postal' => '47021',
                                     'nombre' => 'Andrea Siguenza'
                                   }
                                 ]
                    }
                  ]
        };
 
Andrea Siguenza
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

La única pega es que a veces te tienes que pegar durante horas con las opciones que tienes que pasar a XMLin() para tener la estructura de datos que quieres. Pero ya digo, si el xml es simple, la solución es muy rápida. Otra opción es usar XML::Dumper, pero yo no lo he probado. Quizás hasta sea mejor...

Si necesitas algo más 'inteligente', hay otros módulos XML que son muy interesantes, como el XML::Smart o el más famoso, XML::Twig. En CPAN hay algunos más...

Y luego pasar la consulta a una base de datos, quizás XML::RDB o DBIx::DBStag te ayude, además de la solución obvia de hacer un INSERT con los datos obtenidos del xml...

por **explorer** » 2006-07-11 12:22 @557

Humm... si estamos hablando de SOAP... mejor mira antes aquí...

por **caribesoft** » 2006-07-13 03:40 @194

Muchas gracias Explorer por el tip, ya estuve leyendo la documentación pero sigo con dudas. Mira, ésta es la respuesta al mensaje enviado que recibo. ¿ Qué me recomiendas ?

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<soap:Body>
<consultaUnManifiestoResponse xmlns="http://Recintos/ServiciosWebXml/">
<consultaUnManifiestoResult>
<error>0</error>
<descripError/>
<registros>1</registros>
<man>
<nTrans>465</nTrans>
<cTransp>HYBU</cTransp>
<idTransp>7116834     </idTransp>
<nomBuque>ARGOSY</nomBuque>
<numViaje>416 SB MEX</numViaje>
<fecEstimada>15/12/2004 12:00:00 AM</fecEstimada>
<tipoOper>1</tipoOper>
<lineaNaviera>NAVIERA VICANE</lineaNaviera>
<fecRecibe>14/12/2004 4:09:46 PM</fecRecibe>
<cuAduana>53</cuAduana>
<cuPais>ATG</cuPais>
<cuPuerto>PMS</cuPuerto>
<cuEntidadMan>1158</cuEntidadMan>
<casos/>
</man>
<manifiestos>
<anyType xsi:type="ObjManifiesto">
<nTrans>465</nTrans>
<cTransp>HYBU</cTransp>
<idTransp>7116834     </idTransp>
<nomBuque>ARGOSY</nomBuque>
<numViaje>416 SB MEX</numViaje>
<fecEstimada>15/12/2004 12:00:00 AM</fecEstimada>
<tipoOper>1</tipoOper>
<lineaNaviera>NAVIERA VICANE</lineaNaviera>
<fecRecibe>14/12/2004 4:09:46 PM</fecRecibe>
<cuAduana>53</cuAduana>
<cuPais>ATG</cuPais>
<cuPuerto>PMS</cuPuerto>
<cuEntidadMan>1158</cuEntidadMan>
<casos/>
</anyType>
</manifiestos>
</consultaUnManifiestoResult>
</consultaUnManifiestoResponse>
</soap:Body>
</soap:Envelope>Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2006-07-13 05:28 @269

Nada, nada... SOAP::Lite

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use SOAP::Lite;
 
my $d = SOAP::Custom::XML::Deserializer
  -> deserialize(join '', <DATA>)
  -> valueof('/Envelope/Body');
 
# Volcado de toda la estructura para ver su aspecto
#use Data::Dumper;
#print Dumper $d;
 
# Acceso por programa a algunos datos
my $man = $d->consultaUnManifiestoResponse->consultaUnManifiestoResult->man;
my @campos = qw(
    nTrans          cTransp         idTransp        nomBuque
    numViaje        fecEstimada     tipoOper        lineaNaviera
    fecRecibe       cuAduana        cuPais          cuPuerto
    cuEntidadMan    casos
 );
 
foreach my $campo ( @campos ) {
    print "$campo: ", $man->$campo,"\n";
}
 
# Acceso directo a un elemento concreto
print "manifiestos/cTransp: ",
    $d  ->consultaUnManifiestoResponse
            ->consultaUnManifiestoResult
                ->manifiestos
                    ->anyType
                        ->cTransp,
   "\n";
 
__DATA__
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance " xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    <soap:Body>
        <consultaUnManifiestoResponse xmlns="http://Recintos/ServiciosWebXml/">
            <consultaUnManifiestoResult>
                <error>0</error>
                <descripError />
                <registros>1</registros>
                <man>
                    <nTrans>465</nTrans>
                    <cTransp>HYBU</cTransp>
                    <idTransp>7116834     </idTransp>
                    <nomBuque>ARGOSY</nomBuque>
                    <numViaje>416 SB MEX</numViaje>
                    <fecEstimada>15/12/2004 12:00:00 AM</fecEstimada>
                    <tipoOper>1</tipoOper>
                    <lineaNaviera>NAVIERA VICANE</lineaNaviera>
                    <fecRecibe>14/12/2004 4:09:46 PM</fecRecibe>
                    <cuAduana>53</cuAduana>
                    <cuPais>ATG</cuPais>
                    <cuPuerto>PMS</cuPuerto>
                    <cuEntidadMan>1158</cuEntidadMan>
                    <casos />
                </man>
                <manifiestos>
                    <anyType xsi:type="ObjManifiesto">
                        <nTrans>465</nTrans>
                        <cTransp>HYBU</cTransp>
                        <idTransp>7116834     </idTransp>
                        <nomBuque>ARGOSY</nomBuque>
                        <numViaje>416 SB MEX</numViaje>
                        <fecEstimada>15/12/2004 12:00:00 AM</fecEstimada>
                        <tipoOper>1</tipoOper>
                        <lineaNaviera>NAVIERA VICANE</lineaNaviera>
                        <fecRecibe>14/12/2004 4:09:46 PM</fecRecibe>
                        <cuAduana>53</cuAduana>
                        <cuPais>ATG</cuPais><cuPuerto>PMS</cuPuerto>
                        <cuEntidadMan>1158</cuEntidadMan>
                        <casos />
                    </anyType>
                </manifiestos>
            </consultaUnManifiestoResult>
        </consultaUnManifiestoResponse>
    </soap:Body>
</soap:Envelope>
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

nTrans: 465

cTransp: HYBU

idTransp: 7116834

nomBuque: ARGOSY

numViaje: 416 SB MEX

fecEstimada: 15/12/2004 12:00:00 AM

tipoOper: 1

lineaNaviera: NAVIERA VICANE

fecRecibe: 14/12/2004 4:09:46 PM

cuAduana: 53

cuPais: ATG

cuPuerto: PMS

cuEntidadMan: 1158

casos:

manifiestos/cTransp: HYBUColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y esto dándole a SOAP::Lite el xml de forma directa, pero si ves la carpeta de ejemplos verás que puedes hacer todo el diálogo con el servidor sin ver ni una línea de xml.

por **caribesoft** » 2006-07-13 15:18 @679

Explorer :

Ya probé tu ejemplo y funciona de maravilla, gracias, y perdón por mi ignorancia, soy nuevo en esto del SOAP, y tengo otra preguntita :

¿Cómo le hago para que la respuesta del mensaje SOAP recibido quede dentro de _DATA_ ?

Es decir: my $response ????

Gracias de antemano por tu ayuda, he buscado en toda la Web ¡¡¡ y me has dado el mejor ejemplo !!!

Caribesoft,

por **explorer** » 2006-07-13 16:29 @728

El ejemplo lo he sacado de la carpeta de ejemplos de SOAP::Lite, como te dije... revísalo por favor, porque es posible que esté lo que necesites.

Vamos a ver... antes hay que aclarar cómo vas a trabajar...

El SOAP es un protocolo para intercambiar información. O, mejor dicho, para ejecutar procedimientos en servicios HTTP remotos como si estuvieran en nuestro propio programa o equipo. Y utiliza el XML como base para intercambiar esa información... pero eso no quiere decir que tengamos que 'ver' el XML. Fíjate que en mi ejemplo, el xml se 've' porque está en la sección DATA, pero si fuera una petición SOAP normal, ni lo vería (porque no haría falta).

Entonces...
* ¿No puedes/quieres hablar con el servidor de forma directa?
* ¿O estás obligado a trabajar con el XML?

Entra en SOAP::Lite y mira los ejemplos que hay en la SYNOPSIS, para que veas que dialogar con el servidor no implica tener que ver el XML para nada...

Si, de todas formas, estás obligado a trabajar con el XML, lo puedes grabar a un fichero y leerlo luego como lo he leído la sección DATA. O si el resultado de la petición ya la tienes en una variable escalar, no necesitas nada más que meterla en el deserialize.

La sección DATA sirve para meter datos, configuraciones, comentarios y demás que sólo le interesan a ese programa. No se puede meter nada en él (bueno... yo creo que sí :-)

, pero no lo recomiendo... )

¿No puedes darnos más pistas de cómo realizas toda la transacción?

por **caribesoft** » 2006-07-13 21:14 @926

Nuevamente gracias por tu atención y apoyo, pero tienes razón te voy a explicar qué es lo que necesito realmente:

1. Desarrollé un sistema para el control del manejo de mercancía de importación y exportación de un muelle o almacén fiscal. (En Perl y MySql).

2. El "Documento Fuente" que es la base de la información del sistema, se llama "Manifiesto", el cual tiene a detalle la información de la mercancía que llega como importación al puerto.

3. Actualmente este documento es recibido dos días antes de la llegada del barco y es manipulada sólo en papel, posteriormente se "captura" en el sistema para mejorar el control.

4. Los encargados de generar esta información de los "Manifiestos", acaban de liberar un sistema, por medio del cual se puede consultar dicha información por internet, a través de Web Services.

5. La primera parte que deseo hacer es la consulta de los "Manifiestos" y esta se debe hacerse por medio de un mensaje SOAP para consultar los datos generales, es el script que te muestro arriba.

6. La segunda parte que necesito hacer, es transferir la información de los manifiestos, vía web services, a las bases de datos (MySql) de mi sistema, para evitar la captura manual de dicha información.

En general eso es lo que quiero hacer.

Hace un rato, por fin puede ver la respuesta a mi mensaje como un documento XML, y allí es donde a mi me gustaría poder manipularlo para generar una pantalla de consulta en mi sistema.

Bueno, espero que me haya podido dar a entender y nuevamente mil gracias por adelantado..

saludos,
Caribesoft

por **explorer** » 2006-07-14 07:07 @338

Yo estoy convencido de que si dispones del documento WSDL que define la petición, tu script de más arriba se puede reducir a unas 5 líneas, cuya respuesta quedaría en una variable como la $d en mi script, a partir de la cual puedes acceder a su contenido y luego meterla en la base de datos.

Vamos, es lo que yo haría... Otra forma sería meter tu $response->as_astring dentro del deserialize para acceder a los datos, como está indicado en mi script... y de allí a la base de datos...

Yo creo que todo el programa no debe ocupar más de 50 líneas (comentarios incluidos). Lo malo es que aquí no dispongo de un servidor SOAP con el que hacer pruebas... podría montar uno con el mismo módulo SOAP::Lite, pero ahora mismo no tengo tiempo...

por **caribesoft** » 2006-07-14 12:26 @560

Tienes razon, y gracias a tu ayuda ya entendi un poco mas como funciona el SOAP::Lite, voy hacer algunas pruebas y luego te comento los resultados, nuevamente muchas gracias ...

Foro - Perl en Español

Convertir Mensaje SOAP....

Convertir Mensaje SOAP....

Publicidad

Re: Convertir Mensaje SOAP....

Esto es lo que recibo

Otra preguntica

Es cierto, te explico desde el principio

Tienes razon

¿Quién está conectado?