Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: Parsing NDFD with XML::Simple

by johnfl68 (Beadle)
on Jul 14, 2012 at 23:30 UTC ( #981863=note: print w/replies, xml ) Need Help??

in reply to Parsing NDFD with XML::Simple

Ok - actually, I separated things back out, and it seems to be a SOAP problem to begin with.

The script only makes the request, and then saves it to an XML file.

#!/usr/bin/perl use SOAP::Lite; use DateTime; my $lattitude = 28.3887; my $longitude = -81.4773; my $numDays = 6; # up to 7 days my $format = '12 hourly'; # '12 hourly' or '24 hourly' my $xml_file = 'forecast.xml'; my $dt = DateTime->now; $dt->set_time_zone('local'); my $startDate = $dt->strftime('%Y-%m-%d%z'); $startDate =~ s/(\d{2})(\d{2})$/$1:$2/; # final format: "2005-01-24-06 +:00" my $serviceURI = ''; my $method = 'NDFDgenByDay'; my $endpoint = "$serviceURI/SOAP_server/ndfdXMLserver.php"; my $soapAction = "$serviceURI/DWMLgen/wsdl/ndfdXML.wsdl#$method"; my $weather = SOAP::Lite->new(uri => $soapAction, proxy => $endpoint); my $response = $weather->call( SOAP::Data->name($method) => SOAP::Data->type(decimal => $lattitude)->name('latitude'), => SOAP::Data->type(decimal => $longitude)->name('longitude'), => SOAP::Data->type(date => $startDate)->name('startDate'), => SOAP::Data->type(integer => $numDays )->name('numDays'), => SOAP::Data->type(string => $format )->name('format') ); if ($response->fault) { printf "A fault (%s) occurred: %s\n", $response->faultcode, $response->faultstring; } else { open(OUT, ">$xml_file"); print OUT $response->result; }

It is giving the following error:

not well-formed (invalid token) at line 77, column 13, byte 3304 at /usr/lib/perl5/vendor_perl/5.12.2/i686-linux/XML/ line 187

Here is the Trace if it is any help:

I verified with the original author that the script is currently working on his site right now.

So I am not sure where to go next with getting this to work.

Thanks for any insight!


Replies are listed 'Best First'.
Re^2: Parsing NDFD with XML::Simple
by Anonymous Monk on Jul 14, 2012 at 23:38 UTC

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://981863]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (6)
As of 2018-07-20 14:40 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (435 votes). Check out past polls.