my @data = split(/\,/,$Client{$client}{$cmd}); my $time = $data[0]; for ($i=3; $i<=$#data; $i++) { $seconds = &UnixDate("$time","%s"); if ($cmd eq 'RTT') { $time = &DateCalc("$time","+ 1minute",\$err); $value = sprintf("%0.2f", ($data[$i]/1000)); } else { $time = &DateCalc("$time","+ 30seconds",\$err); $value = sprintf("%0.2f", (($data[$i]*8)/1000)); # Convert to bits then / by 1000 for graphing } $seconds = (int($seconds/300))*300; $Counter{$seconds}++; $Tot{$seconds}+=$value; $Max{$seconds}=$value if ($value>$Max{$seconds}); $Min{$seconds}=$value if (($value<$Min{$seconds})or(!$Min{$seconds})); }