51 lines
1.4 KiB
Perl
51 lines
1.4 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use LWP::Simple; # From CPAN
|
|
use JSON qw( decode_json ); # From CPAN
|
|
use Data::Dumper; # Perl core module
|
|
use strict; # Good practice
|
|
use warnings; # Good practice
|
|
|
|
my $DEBUG=1;
|
|
|
|
my $sensor;
|
|
my $trendsurl;
|
|
my $json;
|
|
my $decoded_json;
|
|
|
|
my $PM10;
|
|
my $PM25;
|
|
my $TEMP;
|
|
my $HUMI;
|
|
my $LON;
|
|
my $LAT;
|
|
my $HPA;
|
|
|
|
my @sensors = qw /761 762 13728 13729 26940 26941 31386 31387/;
|
|
|
|
foreach my $sensor (@sensors) {
|
|
for (my $i=1; $i<=3; $i++) {
|
|
$trendsurl = "https://api.luftdaten.info/v1/sensor/$sensor/";
|
|
$json = get( $trendsurl );
|
|
die "Could not get $trendsurl!" unless defined $json;
|
|
$decoded_json = decode_json( $json );
|
|
|
|
my $k=${$decoded_json}[0];
|
|
print "$k->{'timestamp'}\n";
|
|
foreach (@{$k->{'sensordatavalues'}}) {
|
|
my $type_alias=$_->{'value_type'};
|
|
my $sensor_value=$_->{'value'};
|
|
print "$sensor $type_alias $sensor_value\n" if ($DEBUG);
|
|
}
|
|
|
|
#printf "%-20s %6.2f\n", $k->{'sensordatavalues'}[0]->{'value_type'}, $k->{'sensordatavalues'}[0]->{'value'};
|
|
#printf "%-20s %6.2f\n", $k->{'sensordatavalues'}[1]->{'value_type'}, $k->{'sensordatavalues'}[1]->{'value'};
|
|
#$PM10 = $k->{'sensordatavalues'}[0]->{'value'};
|
|
#$PM25 = $k->{'sensordatavalues'}[1]->{'value'};
|
|
|
|
#$LAT = $k->{'location'}->{'latitude'};
|
|
#$LON = $k->{'location'}->{'longitude'};
|
|
|
|
sleep (30);
|
|
}
|
|
} |