use SOAP::Lite;
print SOAP::Lite
    -> uri('http://www.soaplite.com/Temperatures')
    -> proxy('http://services.soaplite.com/temper.cgi')
    -> f2c(32)
    -> result;
[download]

At first adapt the example script to fit your needs (all parameters marked italic need to be replaced with your ones!) and try to find out which data is returned from server. Data::Dumper can help you if you have no suggestions about it :) And if you fail, try to ask here a less general question.

#makes the new SOAP::Lite object

my $soap_obj = new SOAP::Lite 
                   -> uri ('http://')
                  -> proxy ('http://')
                  -> service();

#gets the response and stores it in a scalar
my $response = $soap_obj->get_response();

#creates the statement for the SQL insert
my $statement = $bdbi->form_push_SQL ($response);

#if bdbi is a database connection then it does $statement 
$bdbi->{'database_handle'}->Query($statement);
[download]

Hi mav3067 :

Thanks for your help, this is what I get as "Response" :

<?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/Servic
+iosWebXml/"><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><a
nyType 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>
</consultaUnManifiestoR
esult></consultaUnManifiestoResponse></soap:Body></soap:Envelope>
[download]

How can I convert to Perl data structure or insert into a Mysql table ??

Again, thanks for your help,

Caribesoft.

20060712 Janitored by Corion: Added formatting, code tags, as per Writeup Formatting Tips

Is that really what you are getting back? This doesn't appear to "well formed XML" as there is a closing </anyType> without a corresponding opening one. If it really is what you are getting back then you will need to fix that problem before attempting to process it.

/J\

Phil

The SOAP::Lite module has a call valueof for complex structures. See Other reference.

Supose this code:

use strict;
use Data::Dumper;
 my $Call = 'f2c'.
 my $Result = $soap->call( $Call, 32 );

  if ( $Result->fault ) {
        printf "Failure on call: %s\n\t  Code: %s\nString: %s\n\n",
                $Call, $Result->faultcode, $Result->faultstring;
  }
  print Dumper( $Result->valueof('//' . $Call . 'Response') );
[download]