21 lines
705 B
Bash
Executable File
21 lines
705 B
Bash
Executable File
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use warnings;
|
|
use JSON;
|
|
|
|
my $APIKEY = "6532d6454b8aa370768e63d6ba5a832e";
|
|
my $StationID = "KUTRIVER63";
|
|
my $Units = "m"; # e = imperial, m = metric
|
|
|
|
my $info = `curl -sm "https://api.weather.com/v2/pws/observations/current?apiKey=$APIKEY&stationId=$StationID&numericPrecision=decimal&format=json&units=$Units"` or die "Error";
|
|
|
|
my $json = decode_json $info or die "Error";
|
|
|
|
my $loc = %{$json}{"observations"}->[0]->{"stationID"};
|
|
my $temp = %{$json}{"observations"}->[0]->{"metric"}->{"temp"};
|
|
my $windS = %{$json}{"observations"}->[0]->{"metric"}->{"windSpeed"};
|
|
my $windD = %{$json}{"observations"}->[0]->{"winddir"};
|
|
|
|
print "?:".$temp.":".$windS.":".$windD.":".$loc;
|