handle encoding. maybe.

diff --git a/wetter.at.pl b/wetter.at.pl
index 87fafa5891f306ca7c239c3c64f472ab69aa74f9..ed28fe08e90415fbaa20900aa6f9d4be29d4ffcc 100755 (executable)
--- a/wetter.at.pl
+++ b/wetter.at.pl
@@ -7,6 +7,7 @@ use 5.010;
 use Web::Scraper;
 use HTTP::Tiny;
 use utf8::all;
 use Web::Scraper;
 use HTTP::Tiny;
 use utf8::all;

+use Encode;

 
 my $url      = 'http://www.wetter.at/wetter/oesterreich/tirol/obsteig';
 my $response = HTTP::Tiny->new->get($url);
 
 my $url      = 'http://www.wetter.at/wetter/oesterreich/tirol/obsteig';
 my $response = HTTP::Tiny->new->get($url);


@@ -40,9 +41,11 @@ my $timeregexp = qr/^.*?([0-9:]+).*?$/;
 ( my $temp    = $res->{boxNow}->{temp} )
     =~ s/Â?°//;    # real °, and "something" before?!
 my ( $weather, $clouds )
 ( my $temp    = $res->{boxNow}->{temp} )
     =~ s/Â?°//;    # real °, and "something" before?!
 my ( $weather, $clouds )

-    = $res->{boxNow}->{icontext} =~ m|^([\w\s]+)\((\d+)% .*$|;
+    = $res->{boxNow}->{icontext} =~ m|^([^(]+)\((\d+)% .*$|;

 my ( $rain, $wind )
     = $res->{boxNow}->{rain} =~ m|Niederschlag: (.+)Wind: (.+)|;
 my ( $rain, $wind )
     = $res->{boxNow}->{rain} =~ m|Niederschlag: (.+)Wind: (.+)|;

+$weather = decode( "utf8", $weather );
+

 
 say 'Wetter in Obsteig (von wetter.at)';
 say '---------------------------------';
 
 say 'Wetter in Obsteig (von wetter.at)';
 say '---------------------------------';