init III

Perl Luftdaten/read_sensor.pl

@@ -0,0 +1,76 @@
+#!/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";