77 lines
2.2 KiB
Perl
77 lines
2.2 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
|
|
#use RRD::Simple ();
|
|
|
|
my $sensor=$ARGV[0];
|
|
|
|
my $trendsurl = "https://api.luftdaten.info/v1/sensor/$sensor/";
|
|
#https://github.com/opendata-stuttgart/meta/wiki/APIs
|
|
#https://data.sensor.community/airrohr/v1/sensor/762/ temp hum
|
|
#https://data.sensor.community/airrohr/v1/sensor/761/ pm10 pm25
|
|
#50.128,8.728
|
|
#https://wego.here.com/directions/mix/50.128,8.728/?map=50.128,8.728,16,normal
|
|
|
|
# open is for files. unless you have a file called
|
|
# 'https://graph.facebook.com/?ids=http://www.filestube.com' in your
|
|
# local filesystem, this won't work.
|
|
#{
|
|
# local $/; #enable slurp
|
|
# open my $fh, "<", $trendsurl;
|
|
# $json = <$fh>;
|
|
#}
|
|
|
|
# Create an interface object
|
|
#my $rrd = RRD::Simple->new( file => "myfile.rrd" );
|
|
|
|
# Create a new RRD file with 3 data sources called
|
|
# bytesIn, bytesOut and faultsPerSec.
|
|
#$rrd->create(
|
|
# P1 => "GAUGE",
|
|
# P2 => "GAUGE",
|
|
# time => "STRING"
|
|
# );
|
|
|
|
# 'get' is exported by LWP::Simple; install LWP from CPAN unless you have it.
|
|
# You need it or something similar (HTTP::Tiny, maybe?) to get web pages.
|
|
my $json = get( $trendsurl );
|
|
die "Could not get $trendsurl!" unless defined $json;
|
|
|
|
# This next line isn't Perl. don't know what you're going for.
|
|
#my $decoded_json = @{decode_json{shares}};
|
|
|
|
# Decode the entire JSON
|
|
my $decoded_json = decode_json( $json );
|
|
|
|
# you'll get this (it'll print out); comment this when done.
|
|
#print Dumper $decoded_json;
|
|
|
|
foreach (@{$decoded_json}) {
|
|
#print $_->{'timestamp'} . "\n";
|
|
foreach (@{$_->{'sensordatavalues'}}) {
|
|
#print "$_->{'value_type'}: ";
|
|
#print $_->{'value'} . "\n";
|
|
}
|
|
}
|
|
|
|
|
|
|
|
my $k=${$decoded_json}[0];
|
|
#print $k->{'timestamp'} . "\n";
|
|
foreach (@{$k->{'sensordatavalues'}}) {
|
|
#print $_->{'value_type'} . ": ";
|
|
#print $_->{'value'} . "\n";
|
|
}
|
|
|
|
$k=${$decoded_json}[0];
|
|
print "$k->{'timestamp'}\n";
|
|
print "$k->{'sensordatavalues'}[0]->{'value_type'} ";
|
|
print "$k->{'sensordatavalues'}[0]->{'value'}\n";
|
|
print "$k->{'sensordatavalues'}[1]->{'value_type'} ";
|
|
print "$k->{'sensordatavalues'}[1]->{'value'}\n";
|
|
print "\n";
|