#!/usr/bin/perl -w
# wetter.pl: gets information from wetter.com

use strict;
use LWP::Simple;
use HTML::Entities;

my $city = shift(@ARGV) || die "usage: ./wetter.pl <location>\n\tlocation = Ortsname oder PLZ\n";
$_ = get("http://www.wetter.com/home/structure/control.php?Lang=DE&ms=1&ss=1&sss=2&search=$city") || die "Dokument konnte nicht uebertragen werden, keine Informationen verfügbar\n\n";

s/^.*<!-- Content Current -->(.*?)<!-- Additional CONTENT -->.*$/$1/si || die "Dokument enthaelt keine Wetterdaten\nWahrscheinlich ist der Suchbegriff wetter.com nicht bekannt\n\n";
my @date = /<div class="headlineHell2">(\d\d\.\d\d\.\d\d\d\d)<br>(\d\d:\d\d) Uhr Ortszeit<\/div>/si;
my @sky = /<span class="tabHeadline">(.*?)<\/span>/si;
my @wheather = /<span class="tabBody">(.*?)<\/span>/sgi;
decode_entities($_), s/\s+//sg for @date, @sky, @wheather;

print << "EOT";

Messung:    @date
Himmel:     @sky
Temperatur: @wheather[0,1]
Luftdruck:  @wheather[2,3]
Wind:       @wheather[5,6,4]
Sicht:      @wheather[7,8]

EOT