diff options
Diffstat (limited to 'bin/vweather')
| -rwxr-xr-x | bin/vweather | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/bin/vweather b/bin/vweather index b04a203..7c19e6d 100755 --- a/bin/vweather +++ b/bin/vweather @@ -17,6 +17,13 @@ my %opt; my $alpha; my $dump; my $iconstore = Derf::Visual::WeatherIcons->new(); +my $icon_re = qr{ + / + (?: weather_ )? + ([^/]+?) + (?: -40 )? + \. gif $ +}x; my $weather = Weather::Google->new( 'Essen, Germany', @@ -43,7 +50,7 @@ sub show_weather_console { ); if ($dump) { - say $day->{'icon'}; + say ($day->{'icon'} =~ $icon_re); } } } @@ -73,7 +80,7 @@ sub show_weather_png { my $wday = substr($day->{'day_of_week'}, 0, 2); my $low = sprintf('%2d', $day->{'low'}); my $high = sprintf('%2d', $day->{'high'}); - my ($icon) = ($day->{'icon'} =~ m{ / ([^/]+) \. gif $ }x); + my ($icon) = ($day->{'icon'} =~ $icon_re); if (not defined $day) { last; |