version 1.1, 2006/05/08 20:52:53 |
version 1.2, 2006/05/08 23:22:19 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
# $RedRiver$ |
# $RedRiver: average_rrd,v 1.1 2006/05/08 19:52:53 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
next unless defined $line->[$i]; |
next unless defined $line->[$i]; |
foreach my $key (keys %TIMES) { |
foreach my $key (keys %TIMES) { |
if ($end - $TIMES{$key} < $start) { |
if ($end - $TIMES{$key} < $start) { |
|
foreach ('max', 'min') { |
|
$totals{ $names->[$i] }{$key}{$_} = $line->[$i] |
|
unless defined $totals{ $names->[$i] }{$key}{$_}; |
|
} |
|
no warnings q/uninitialized/; |
$totals{ $names->[$i] }{$key}{'count'}++; |
$totals{ $names->[$i] }{$key}{'count'}++; |
$totals{ $names->[$i] }{$key}{'total'} += $line->[$i]; |
$totals{ $names->[$i] }{$key}{'total'} += $line->[$i]; |
|
$totals{ $names->[$i] }{$key}{'max'} = $line->[$i] |
|
if $totals{ $names->[$i] }{$key}{'max'} < $line->[$i]; |
|
$totals{ $names->[$i] }{$key}{'min'} = $line->[$i] |
|
if $totals{ $names->[$i] }{$key}{'min'} > $line->[$i]; |
} |
} |
} |
} |
} |
} |