Perl ist was Array's angeht echt Müll
# Plugin zum Abfragen von Google Weather
# Version 0.5 2011-02-15
# Copyright: Bodo (https://knx-user-forum.de/members/bodo.html)
# License: GPL (v2)
# Aufbau möglichst so, dass man unterhalb der Definitionen nichts ändern muss!
##################
### DEFINITION ###
##################
my $city = "Uster"; # Meine Stadt, hier statt ü,ä,ö einfach u,a,o nehmen oder ue,ae,oe (Amis halt)
my $country = "Schweiz"; # Mein Land
my $lang = "de"; # Meine Sprache
my $google_temp_ga = "7/0/0"; # Gruppenadresse Temperatur (DPT9)
my $google_hum_ga = "7/0/1"; # Gruppenadresse Luftfeuchte (DPT16)
my $google_forecast_maxtemp_ga = "7/0/2"; # Gruppenadresse Temperatur Maximum (DPT9)
my $google_forecast_mintemp_ga = "7/0/3"; # Gruppenadresse Temperatur Minimum (DPT9)
my $google_clouds_ga = "7/0/4"; # Gruppenadresse Wolken (DPT16)
my $google_forecast_clouds_ga = "7/0/5"; # Gruppenadresse Vorhersage Wolken (DPT16)
my $google_wind_ga = "7/0/6"; # Gruppenadresse Wind (DPT5)
my $google_windrichtung_ga = "7/0/7"; # Gruppenadresse Windrichtung (DPT16)
my $google_ip = "http://www.google.com/ig/api?weather=";
my $google = "http://www.google.com";
my $htdocs = "/var/www/"; # Das Webverzeichnis
my $google_xml = "google_weather.xml"; # Der XML Datensatz
my $weather_html = "google_weather.html"; # Ausgabe als HTML
my $google_css = "google_weather.css"; # Das Stylesheet
$plugin_info{$plugname.'_cycle'} = 600; # Eigenen Aufruf-Zyklus setzen (Initialisierung/zyklisches prüfen)
# nicht zu klein, da die Daten sowieso in längeren Perioden refresht werden
# und das Plugin auf die CF schreibt.
#######################
### ENDE DEFINITION ###
#######################
# Hauptverarbeitung
use LWP::Simple;
use XML::Simple;
use Encode qw(encode decode);
# use open ":utf8";
my $url = $google_ip.$city."+".$country."&hl=".$lang;
my $xml = encode("utf8",get($url));
# my $xml = get($url);
die "Couldn't get it!" unless defined $xml;
my $xml_w = ">".$htdocs.$google_xml;
open(XML, $xml_w); # XML Datei zum Schreiben öffnen
print XML $xml;
close(XML);
my $weather = XMLin($xml)->{weather};
knx_write($google_temp_ga,$weather->{current_conditions}{temp_c}{data},9);
my $google_hum = $weather->{current_conditions}{humidity}{data};
$google_hum =~ m/(\s)(\d{1,3})(\s)/; # ($1)($2)($3)
knx_write($google_hum_ga,$2,5);
knx_write($google_forecast_maxtemp_ga,$weather->{forecast_conditions}[COLOR=Red][0][/COLOR]{high}{data},9);
knx_write($google_forecast_mintemp_ga,$weather->{forecast_conditions}[COLOR=Red][0][/COLOR]{low}{data},9);
my $google_clouds = $weather->{current_conditions}{condition}{data};
if ($google_clouds =~ m/(\D*)(\s)(\D*)/) { # \s findet Zwischenraum (whitspaces). ($1)($2)($3)
knx_write($google_clouds_ga,$1." ".$3,16);
} else {
knx_write($google_clouds_ga,$google_clouds,16);
}
my $google_forecast_clouds = $weather->{forecast_conditions}[COLOR=Red][0][/COLOR]{condition}{data};
if ($google_forecast_clouds =~ m/(\D*)(\s)(\D*)/) { # ($1)($2)($3)
knx_write($google_forecast_clouds_ga,$1." ".$3,16);
} else {
knx_write($google_forecast_clouds_ga,$google_forecast_clouds,16);
}
my $google_wind = $weather->{current_conditions}{wind_condition}{data};
$google_wind =~ m/(\s)(\D{1,3})(\s)(\D*)(\s)(\d{1,3})(\s)/; # ($1)($2)($3)($4)($5)($6)($7)
knx_write($google_windrichtung_ga,$2,16);
knx_write($google_wind_ga,$6,5);
...
<alarms><alarmzeit1><zeit>07:30</zeit></alarmzeit1></alarms>
<alarms><name="alarmzeit1", zeit="7:30"></alarms>
<alarms><name="alarmzeit1", zeit="7:30"></alarms>
knx_write($google_forecast_mintemp_ga,$weather->{forecast_conditions}[0]{low}[COLOR=Red]{data}[/COLOR],9);
<alarms><alarmzeit1><zeit>07:30</zeit></alarmzeit1></alarms>
<alarms><name="alarmzeit1", zeit="7:30"></alarms>
...
my $xml = encode("utf8",get($url));
my $alarms = XMLin($xml);
#use Data::Dumper; # aktuell ists bereits geladen
return Dumper($alarms);
$VAR1 = {
'alarm' => {
'' => {
'action_param' => 'off',
'when' => 'daily',
'arg' => 'Bugle',
'time' => '390',
'duration' => '30',
'backupDelay' => '5',
'auto_dismiss' => '0',
'snooze' => '5',
'action' => 'nightmode',
'type' => 'beep',
'param' => '',
'backup' => '1',
'enabled' => '0',
'param_description' => 'Bugle'
},
'Fr' => {
'action_param' => 'off',
'when' => 'friday',
'arg' => 'Bugle',
'time' => '390',
'duration' => '30',
'backupDelay' => '5',
'auto_dismiss' => '0',
'snooze' => '5',
'action' => 'nightmode',
'type' => 'beep',
'param' => '',
'backup' => '1',
'enabled' => '1',
'param_description' => 'Bugle'
},
'Mi' => {
'action_param' => 'off',
'when' => 'wednesday',
'arg' => 'Bugle',
'time' => '390',
'duration' => '30',
'backupDelay' => '5',
'auto_dismiss' => '0',
'snooze' => '5',
'action' => 'nightmode',
'type' => 'beep',
'param' => '',
'backup' => '1',
'enabled' => '1',
'param_description' => 'Bugle'
},
'Sa' => {
'action_param' => 'off',
'when' => 'saturday',
'arg' => 'Bugle',
'time' => '390',
'duration' => '30',
'backupDelay' => '5',
'auto_dismiss' => '0',
'snooze' => '5',
'action' => 'nightmode',
'type' => 'beep',
'param' => '',
'backup' => '1',
'enabled' => '1',
'param_description' => 'Bugle'
},
'Di' => {
'action_param' => 'off',
'when' => 'tuesday',
'arg' => 'Bugle',
'time' => '390',
'duration' => '30',
'backupDelay' => '5',
'auto_dismiss' => '0',
'snooze' => '5',
'action' => 'nightmode',
'type' => 'beep',
'param' => '',
'backup' => '1',
'enabled' => '1',
'param_description' => 'Bugle'
}
}
};
return $alarms->{alarm}->{Fr}->{action};
my $alarms = XMLin($xml)[COLOR="Red"]->{alarm}[/COLOR];
my $result;
while ((my $key) = each %{$alarms}) {
$result .= "Alarm name '" . $key . "' has action: " . $alarms->{$key}->{action} . " runs on " . $alarms->{$key}->{when} . " at time " . $alarms->{$key}->{time};
}
return $result;
Kommentar