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

my $url = "http://schnee.schneehoehen.de/schneehoehen/det_pop.php?id=794";
die "Usage: $0 url\n" unless $url;

my $uri = URI->new($url);
my $ua = LWP::UserAgent->new( agent => 'varbot');
$ua->env_proxy;

my $page = $ua->get($url, Host => $uri->host );
die "Konnte URL nicht holen.\n" unless $page->is_success ;
(my $langlauf) = $page->content =~ m#<td class="tbhead_sp"\s*colspan="2">Langlauf:</td>(.*)<td class="tbhead_sp"\s*colspan="2">Weitere Infos:</td>#gs;

(my @data) = $langlauf =~ m#klassisch:</td>.*class="tbc1r">\s*([\s\dkmvon]+)\s*</td>.*Zustand:</td>.*class="tbc2r">\s*([^<]+)</td>.*skating:</td>.*class="tbc1r">\s*([\s\dkmvon]+)\s*</td>.*Zustand:</td>.*class="tbc2r">\s*([^<]+)</td>#gs;
print "klassisch: $data[0] --> $data[1]\nskating: $data[2] --> $data[3]\n" ;
