ToastFreeware
/
chrisu
/
seepark.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b91faa5
)
handle encoding. maybe.
author
gregor herrmann
<gregor@toastfreeware.priv.at>
Thu, 10 May 2018 19:10:24 +0000
(21:10 +0200)
committer
gregor herrmann
<gregor@toastfreeware.priv.at>
Thu, 10 May 2018 19:10:24 +0000
(21:10 +0200)
wetter.at.pl
patch
|
blob
|
history
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 '---------------------------------';