Weatherbug work with Metric Data

[bodo.bach]

Hi,

here the weatherbug.pl script changes for working with metric data:
-----------------------------------------

#!/usr/bin/perl
use warnings;
use strict;
use LWP::Simple;

my $timeout = 8;
my $total_time = 36;
my $httpaddr = "http://www.aws.com/wx.asp?Units=1&id=" . $ARGV[0];
my $content;
my $fail = 0;
my $tries = 0;
my %data;
my %trash;

do{
eval {
local $SIG{ALRM} = sub { die "alarm\n" };
alarm $timeout;
$tries++;
$content = LWP::Simple::get($httpaddr);
alarm 0;
};
} while (!$content && $tries <= int($total_time / $timeout));

$data{Tries} = $tries;

if (!$content) {
exit(1);
}

$_ = $content;
s/nbsp;/ /g;
s/<.+?>//g;
s/\s+/ /g;

# regex in html source order
if ($_ =~ /Temperature\(\DC\)\s(-?\d+?\.\d+?)\s/g) { $data{Temp} = $1; }
if ($_ =~ /Humidity\s\(\D\)\s(\d+?\.\d+?)\s/g) { $data{Humidity} = $1; }
if ($_ =~ /Wind\s\(Kph\).+?(\d+?\.\d+?)\s/g) { $data{Wind} = $1; }
if ($_ =~ /Daily\sRain\s\(\cm\)\s(\d+?\.\d+?)\s/g) { $data{Rain} = $1; }
if ($_ =~ /Pressure\(kPa\)\s(\d+?\.\d+?)\s/g) { $data{Pressure} = $1; }
if ($_ =~ /WIND\sCHILL:\s(\d+?\.\d+?)\s/g) { $data{FeelsLike} = $1; }
if ($_ =~ /DEW\sPOINT:\s(\d+?\.\d+?)\s/g) { $data{DewPoint} = $1; }

for (keys %data) {
printf "%s:%s ", $_, $data{$_};
}
print "\n";

-----------------------------------------------------------------

And don't forget to change the graph-template from "F" to "°C" and "in." to "cm" and so on......


Greetings