- $tochan->{pingtime} += $t;
- $tochan->{pingrec} += 1;
- $tochan->{pingave} = $tochan->{pingtime} / $tochan->{pingrec};
+ push @{$tochan->pingtime}, $t;
+ shift @{$tochan->pingtime} if @{$tochan->pingtime} > 10;
+ my $st;
+ for (@{$tochan->pingtime}) {
+ $st += $_;
+ }
+ $tochan->{pingave} = $st / @{$tochan->pingtime};