#!/usr/bin/perl
#
use strict;
use RRDs;
use Data::Dumper;
my @rrd_array;
$rrd_array[0] = "[";
my $DB = "/var/www/rrd/PVGIS_forecast.rrd";
my $start = "midnight+6h"; # Mitternacht+6h
my $end = "noon+9h";       # Mittag+9h
my ($start, $step, $columns,$data) = RRDs::fetch($DB, "--start=$start", "--end=$end", "AVERAGE")
   or die "Cannot fetch rrd ($RRDs::error)";
my $ii = 1;
     OUTER:foreach my $line (@$data) {
           $start += $step;
           INNER:foreach my $val (@$line) {
                $val = "N/A" unless defined $val;
		        if($val eq "N/A"){last OUTER;}
				$rrd_array[$ii] = [$start , $val],;
				++$ii;
          }
     }
$rrd_array[$ii] = "],";
print Dumper(\@rrd_array);