Perl checks for rain and issues umbrella warning
Rain Check
A Perl script that retrieves the current weather forecast at dawn helps the Perlmeister decide whether to run the risk or take an umbrella just in case.
In the wet season, the question often arises as to whether rain or snow will fall from the sky during the day and therefore whether it might be advisable to take an umbrella with me to work.
Underground Weather
Ultimately, however, even occasional rain showers around noon would be irrelevant, as long as you could navigate the commute to and from work without getting wet. Luckily, the Weather Underground [1] weather service offers free forecasts for the day. Although they are certainly not 100 percent accurate, they do beat human intuition by a mile.
On CPAN, Perl programmers will find the WWW::Wunderground::API module, which uses a script to fetch the weather data from the server thanks to a free API developer key [2] procured especially for that purpose. The simple script in Listing 1 uses the module; it iterates over the hourly entries in the bulk of JSON data returned and outputs the time and the probability of rain for each hour sent in the pop
(probability of precipitation) [3] entry.
Figure 1 shows less than a 50 percent probability of rain in the afternoon; a practicing mathematician might be inclined to leave that umbrella at home.
More Than Just Rain
That said, the Underground server returns far more than just the probability of rain. The hourly()
method called in line 12 of Listing 1 returns an array of hourly weather elements for the day. As the mass of data in Figure 2 shows, each element points to a number of keys such as humidity
or sky
(cloud coverage). Finally, the date and time of the forecast are provided under FCTTIME
.
Listing 1
chance-of-rain.pl
01 #!/usr/local/bin/perl -w 02 use strict; 03 use WWW::Wunderground::API; 04 use DateTime; 05 06 my $w = WWW::Wunderground::API->new( 07 location => "San Francisco, CA", 08 api_key => "0123456789abcdef", 09 auto_api => 1, 10 ); 11 12 for my $e (@{ $w->hourly }) { 13 my $dt = DateTime->from_epoch( 14 epoch => $e->{ FCTTIME }->{ epoch } ); 15 16 print "$dt: $e->{ pop }%\n"; 17 }

Listing 1 grabs the epoch
entry from the date and converts the Unix seconds since 1970, using the DateTime
Perl module, to a readable and easily machine manipulable format for use later.
API Key for an Email Address
The Wunderground server does not give you the data unconditionally, but if you register on the developer page by providing a valid email address [2], you will receive a 16-digit hexadecimal API key in return that enables a limited number of daily queries to the service. If you select the free "Cumulus" plan and also assure the provider that the data will not be used for commercial purposes (Figure 3), you do not need to specify any form of payment. In Listings 1 and 2, you need to replace the string defined by api_key
with the API key you are assigned (Figure 4) before use.
Buy this article as PDF
(incl. VAT)
Buy Linux Magazine
Subscribe to our Linux Newsletters
Find Linux and Open Source Jobs
Subscribe to our ADMIN Newsletters
Support Our Work
Linux Magazine content is made possible with support from readers like you. Please consider contributing when you've found an article to be beneficial.
News
-
Linux Kernel Reducing Long-Term Support
LTS support for the Linux kernel is about to undergo some serious changes that will have a considerable impact on the future.
-
Fedora 39 Beta is Now Available for Testing
For fans and users of Fedora Linux, the first beta of release 39 is now available, which is a minor upgrade but does include GNOME 45.
-
Fedora Linux 40 to Drop X11 for KDE Plasma
When Fedora 40 arrives in 2024, there will be a few big changes coming, especially for the KDE Plasma option.
-
Real-Time Ubuntu Available in AWS Marketplace
Anyone looking for a Linux distribution for real-time processing could do a whole lot worse than Real-Time Ubuntu.
-
KSMBD Finally Reaches a Stable State
For those who've been looking forward to the first release of KSMBD, after two years it's no longer considered experimental.
-
Nitrux 3.0.0 Has Been Released
The latest version of Nitrux brings plenty of innovation and fresh apps to the table.
-
Linux From Scratch 12.0 Now Available
If you're looking to roll your own Linux distribution, the latest version of Linux From Scratch is now available with plenty of updates.
-
Linux Kernel 6.5 Has Been Released
The newest Linux kernel, version 6.5, now includes initial support for two very exciting features.
-
UbuntuDDE 23.04 Now Available
A new version of the UbuntuDDE remix has finally arrived with all the updates from the Deepin desktop and everything that comes with the Ubuntu 23.04 base.
-
Star Labs Reveals a New Surface-Like Linux Tablet
If you've ever wanted a tablet that rivals the MS Surface, you're in luck as Star Labs has created such a device.