Select Code to Download

foreach my $row (@sensor_h)
{
  push(@draw, {draw => { file => "../data/$row", legend => "Source 1",
+ thickness => 2, color => '00FF00' }});
}

$VAR1 = {
          'draw' => {
...
                      'file' => '../data/AB0008008E533410'
                    }
        };

$rrd->graph(
  #image          => '-',
...
  draw           => { file => "../data/sensor1.rrd", legend => "Source
+ 1", thickness => 2, color => '00FF00' },
  @draw
);

'Odd number of elements in hash assignment at /usr/lib/perl5/site_perl
+/5.8.8/RRDTool/OO.pm line 178.
Illegal parameter 'HASH(0xf6cf030)' in graph() at graph.cgi line ...