Martin KutterandMichael G. Schwern
40e0e67e84
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_07 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_07.tar.gz
20 lines
501 B
Perl
20 lines
501 B
Perl
# Accessing the fortune cookie service at
|
|
# www.webservicex.net/GlobalWeather/GlobalWeather.asmx
|
|
#
|
|
# I have no connection to www.webservicex.net
|
|
#
|
|
# Use this script at your own risk.
|
|
|
|
use lib 'lib/';
|
|
use MyInterfaces::GlobalWeather;
|
|
my $webservice = MyInterfaces::GlobalWeather->new();
|
|
|
|
my $result = $webservice->GetWeather({ CountryName => 'Germany', CityName => 'Munich' });
|
|
|
|
if ($result) {
|
|
print $result->get_GetWeatherResult()->get_value(), "\n";
|
|
}
|
|
else {
|
|
print $result;
|
|
}
|