Malmin säätiedot puheena internetin kautta

[jukkis]

Puuhailin ao. ohjelman, joka puhuu kentän säätiedot, jos kiinnostaa.

Ajetaan komennolla:

while true; do ./saajava; sleep 3600; done;


t. Jukka

#!/usr/bin/perl
system("wget http://www.cs.hut.fi/~jtjuslin/saa/saa.html");
$saadata = "EFHF 080120Z AUTO 18009KT 120V220 9999 BKN008 BKN016 11/10 Q1006=";
open(SAADATA, "saa.html");
$rain = false;
while(<SAADATA>) {

if(/EFHF \d/) {
print $_;
$saadata = $_;
}
if(/RA/) {
$rain = true;
}
}
close(SAADATA);
@saadatat = split(/ /,$saadata);
$ehkatuuli = @saadatat[2];
$_ = $ehkatuuli;
if(/KT/) {
$tuuli = $_;
}
$ehkatuuli = @saadatat[3];
$_ = $ehkatuuli;
if(/KT/) {
$tuuli = $_;
}
$_ = $tuuli;
$tuulenvoima = "";
if(/(\d{2}KT)/) {
$tuulenvoima= $1;
}
$tuulenvoimaluku = substr $tuulenvoima, 0, 2;
$tuulensuunta = @saadatat[3];
$tuulensuunta = substr $tuulensuunta, 0,3;
system("date");
print "Tuulen suunta Malmilla on: " . $tuulensuunta . " astetta ja ";
print "tuulen voimakkuus on: " . $tuulenvoimaluku . " knotsia\n";
system("echo \"Screw you guys, I am going home.\" | festival --tts");
system("echo \"The hourly weather information program is starting.\" | festival --tts");
system("echo \"Wind speed at Malmi airport is " . $tuulenvoimaluku . " knots\" | festival --tts");
system("echo \"Wind direction at Malmi airport is " . $tuulensuunta . " degrees\" | festival --tts");
if($rain == true) {
system("echo \"It is raining.\" | festival --tts");
print("It is raining");
}
`rm -rf saa.html`;