874251225f
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_29 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_29.tar.gz
23 lines
846 B
Perl
23 lines
846 B
Perl
# Accessing the globalweather service at
|
|
# www.webservicex.net/GlobalWeather/GlobalWeather.asmx
|
|
#
|
|
# Note that the GlobalWeather web service returns a (quoted) XML structure -
|
|
# don't be surprised by the response's format.
|
|
#
|
|
# I have no connection to www.webservicex.net
|
|
# Use this script at your own risk.
|
|
#
|
|
# This script demonstrates the use of a interface generated by wsdl2perl.pl
|
|
|
|
use lib 'lib/';
|
|
use MyInterfaces::GlobalWeather::GlobalWeatherSoap;
|
|
my $weather = MyInterfaces::GlobalWeather::GlobalWeatherSoap->new();
|
|
my $result = $weather->GetWeather({ CountryName => 'Germany', CityName => 'Munich' });
|
|
|
|
# boolean comparison overloaded
|
|
die $result->get_faultstring()->get_value() if not ($result);
|
|
|
|
# The result is a XML string
|
|
# use get_value to avoid automatic entity encoding
|
|
print $result->get_GetWeatherResult()->get_value , "\n";
|