Fetching weather information from weather.com
#!/usr/bin/perl -w use Weather::Com::Finder;
# you have to fill in your ids from weather.com here my $PartnerId = 'somepartnerid'; my $LicenseKey = 'mylicense';
my %weatherargs = ( 'partner_id' => $PartnerId, 'license' => $LicenseKey, 'language' => 'de', );
my $weather_finder = Weather::Com::Finder->new(%weatherargs);
my @locations = $weather_finder->find('Heidelberg');
foreach my $location (@locations) { print "Found weather for city: ", $location->name(), "\n"; print "Current Conditions are ", $location->current_conditions()->description(), "\n"; }
Weather::Com provides three interfaces to access weather information from weather.com.
Except from the main high level interface, there is also a simple, very easy to use one called Weather::Com::Simple. And if you want, you can also use the low level interface that is the basis for the two high level interfaces, directly (Weather::Com::Cached or even Weather::Com::Base).
Please refer to the \s-1POD\s0 of these modules directly for detailed information.
The data provided by weather.com and made accessible by this \s-1OO\s0 interface can be used for free under special terms. Please have a look at the application programming guide of weather.com <http://www.weather.com/services/xmloap.html>
Weather-Com uses Locale::Maketext for the l10n. Foreach language there has to be package Weather::Com::L10N::[langcode] (e.g. Weather::Com::L10N::de).
Localization is new with version 0.4 of Weather-Com. Therefore, there are not too many languages supported, yet. If one wants to create such a language definition package for a language that is not part of this module, please do the following:
check my homepage to verify that the language package has not been created by someone else, yet (<http://www.schnuecker.org/index.php?weather-com>).
contact me to verify if anybody else already is already translating into this language
just do it and send me your new language package. It then will be first put onto my website for download and then it will be part of the next release.
\$1
With version 0.5 of Weather-Com I have introduced a new feature called dynamic language support.
The language for all textual attributes that usually are translated in your default language you chose while creating your \*(C`Weather::Com::Finder\*(C' instance can now dynamically be changed on a per-method-call basis.
Have a look at this example:
#!/usr/bin/perl -w use Weather::Com::Finder;
# you have to fill in your ids from weather.com here my $PartnerId = 'somepartnerid'; my $LicenseKey = 'mylicense';
my %weatherargs = ( 'partner_id' => $PartnerId, 'license' => $LicenseKey, 'language' => 'en', );
my $weather_finder = Weather::Com::Finder->new(%weatherargs);
my @locations = $weather_finder->find('Heidelberg');
foreach my $location (@locations) { print "Found weather for city: ", $location->name(), "\n"; print "Current Conditions are ", $location->current_conditions()->description(), "\n";
# HERE WE USE DYNAMIC LANGUAGE SUPPORT print "That is in German: ", $location->current_conditions()->description('de'), "\n"; }
As you can see in this example, you can provide a language tag to a method that returns textual information.
If you want to find out if the dynamic language support is already implemented for a specific attribute of one Weather-Com class, have a look at the corresponding packages \s-1POD\s0.
The usual way to use the Weather::Com module would be to instantiate a Weather::Com::Finder that allows you to search for a location by a search string or postal code or whatever weather.com may understand.
The finder returns an arrayref or an array of locations (depending on how you call the \*(C`find()\*(C' method). Each location is an object of Weather::Com::Location.
The locations consist of location specific data, a Weather::Com::CurrentConditions object, a Weather::Com::Forecast object and a Weather::Com::Units object. You will need a configuration hash to instantiate a Weather::Com::Finder object. Except of the partner_id and the license all parameters are optional and have sensible defaults.
use Weather::Com::Finder;
my %config = ( partner_id => 'somepartnerid', # mandatory license => 'somelicensekey' # mandatory language => 'de', units => 's', cache => '/tmp/weather', timeout => 300, debug => 1, proxy => 'http://some.proxy.de:8080', proxy_user => 'myaccount', proxy_pass => 'myproxy_pass' );
The valid parameters are:
To be allowed to fetch weather information from weather.com you need to register (free of charge) to get a so called Partner Id and a License Key.
See partner_id.
weather.com returns some textual data to describe the weather conditions, uv index, moon phase, wind direction, etc. If one specifies a valid language as configuration parameter, this textual descriptions are translated into that language. If one specifies a language for that there's no translation, the objects will return the english texts.
Maybe you want to define a special path to put the cache files into. The cache directory defaults to \*(L".\*(R".
This parameter defines whether to fetch information in metric (m) or \s-1US\s0 (s) format. Defaults to 'm'.
The timeout for LWP::UserAgent to get an \s-1HTTP\s0 request done usually is set to 180s. If you need a longer timeout or for some reasons a shorter one you can set this here. Defaults to 180 seconds.
Set debugging on/off. Defaults to 0 (off).
Usually no proxy is used by the LWP::UserAgent module used to communicate with weather.com. If you want to use an \s-1HTTP\s0 proxy you can specify one here.
If specified, this parameter is provided to the proxy for authentication purposes. Defaults to undef.
If specified, this parameter is provided to the proxy for authentication purposes. Defaults to undef. Usually one would start by searching for a location. This is done by instantiating a Weather::Com::Finder object providing all necessary information about the weather.com license, the proxy if one is needed, etc.
my $finder = Weather::Com::Finder->new(%config);
Then you call the finders \*(C`find()\*(C' method to search for locations whose name or whose postal code matches against the searchstring. The finder then returns an array (or arrayref) of Weather::Com::Location objects.
# if you want an array of locations: my @locations = $finder->find('Heidelberg');
# or if you prefer an arrayref: my $locations = $finder->find('Heidelberg');
For further information please refer to Weather::Com::Finder. The Weather::Com::Location object contains information about the location itself (longitude, latitude, current local time, etc.), a Weather::Com::Units object that contains all information about the units of messures currently used with this location, and a Weather::Com::CurrentConditions object containing the current weather conditions of the location.
foreach my $location (@locations) { print "Found location with name: ", $location->name(), "\n"; print "The longitude of this location is: ", $location->longitude(), "\n"; }
All information in the Weather::Com::Location object is updated with each single call of one of its methods corresponding to the caching rules implemented in Weather::Com::Cached.
For detailed information about the Weather::Com::Location class please refer to Weather::Com::Location. The units class provides all units of measure corresponding to the data of the location object. You'll get an instance of this class by calling the \*(C`units()\*(C' method of your location object.
For detailed information about the Weather::Com::Units class please refer to Weather::Com::Units. Each location has a Weather::Com::CurrentConditions object accessible via its \*(C`current_conditions()\*(C' method.
my $conditions = $location->current_conditions(); print "Current temperature is ", $conditions->temperature(), "�C\n"; print "but it feels like ", $conditions->windchill(), "�C!\n";
Anytime you call a method of your Weather::Com::CurrentConditions object, its data is refreshed automatically if needed according to the caching rules.
For detailed information about this class please refer to Weather::Com::CurrentConditions. Each location has a Weather::Com::Forecast object to access weather forecasts. weather.com provides up to 9 days of forecast - or 10 days if one wants to count day 0 which is today in most cases.
my $forecast = $location->forecast(); print "Max. temperature tomorrow will be ", $forecast->day(1)->high(), "�C\n";
Any time you call a method of your Weather::Com::Forecast object, forecast data is updated if necessary.
For detailed information about this class please refer to Weather::Com::Forecast. There are a some other classes that are used to represent groups of weather data like wind (speed, direction, etc.), \s-1UV\s0 index, air pressure, etc.
Objects of these classes belong to objects of class Weather::Com::CurrentConditions or Weather::Com::Forecast that will be introduced with the next release. These objects data will only refresh when you call the corresponding method of the parent object.
For detailed information about these classes please refer to their own \s-1POD\s0.
Classes available with this version are:
Weather::Com::AirPressure
Provides access to the barometric pressure data.
For detailed information about this class please refer to Weather::Com::AirPressure.
Weather::Com::UVIndex
Provides access to the uv index of the parent object.
For detailed information about this class please refer to Weather::Com::UVIndex.
Weather::Com::Wind
Provides access to wind speed, maximum gust, direction in degrees, etc.
If you plan to extend these module, e.g. with some other caching mechanisms, please contact me. Perhaps we can add your stuff to this module.
Weather::Com::Finder, Weather::Com::Location, Weather::Com::Units, Weather::Com::CurrentConditions, Weather::Com::AirPressure, Weather::Com::UVIndex, Weather::Com::Wind Weather::Com::Simple Weather::Com::Cached and Weather::Com::Base
If you want to report a bug, please use the \s-1CPAN\s0 bug reporting tool.
If you have any question, suggestion, feature request, etc. please use the \s-1CPAN\s0 forum.
If you are looking for fixes, pre-releases, etc. have a look at my website <http://www.schnuecker.org/index.php?weather-com>.
Thomas Schnuecker, <[email protected]>
Copyright (C) 2004-2007 by Thomas Schnuecker
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The data provided by weather.com and made accessible by this \s-1OO\s0 interface can be used for free under special terms. Please have a look at the application programming guide of weather.com (<http://www.weather.com/services/xmloap.html>)