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})); } #### 07:30:04,60,750,32058,41,98,41,41,98,43,41,73,98,18050,467,428,260,363,836,258,1499,247,489,1208,469,633,749,439,342,258,706,817,639 ,2174,848,909,557,876,1633,1116,1090,665,1150,817,1592,791,1741,935,675,2370,2039,2121,911,1955,1526,608,656,375,1488,529,376,268,10 82,1858,2036,1282,859,1356,1654,1620,2074,1546,488,2999,1564,1509,811,1427,2149,611,1548,803,2313,1823,1575,1733,1168,2511,1034,2090 ,1491,2361,2663,2062,1455,957,3549,3097,2443,2680,2262,2152,2176,2645,3029,2078,1395,1961,801,1955,1395,1465,1030,976,1026,813,932,1 745,450,1172,1457,.....