blob: d2f1c74062052b33e5b289715316ed19a1bf2cad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/perl
use XML::Simple;
my $xml = new XML::Simple;
my $xml_store = undef;
my $data_new = undef;
my $data_old = undef;
my $condition_store = undef;
my $data_old = $condition_store;
while (1) {
&xml_update();
$data_old = $data_new;
$data_new = $condition_store;
if($data_new ne $data_old){
system("espeak \"Das Wetter hat sich von $data_old in $data_new verändert\n\");
}
sleep 300;
}
sub xml_update(){
$xml_store = `w3m -dump "http://www.google.com/ig/api?weather=70327-stuttgart&hl=de"`;
$xml_store = $xml->XMLin($xml_store);
$condition_store = $xml_store->{weather}->{current_conditions}->{condition}->{data};
}
|