63 |
return; |
return; |
64 |
} |
} |
65 |
|
|
66 |
$stats->{ 'min_'.$_ } = $hash->{ $_ } < $stats->{ 'min_'.$_ } foreach ( qw/lat lon/ ); |
foreach my $n ( qw/lat lon time speed/ ) { |
67 |
$stats->{ 'max_'.$_ } = $hash->{ $_ } > $stats->{ 'max_'.$_ } foreach ( qw/lat lon/ ); |
$stats->{'min_'.$n} ||= $hash->{$n}; |
68 |
|
$stats->{'max_'.$n} ||= $hash->{$n}; |
69 |
|
$stats->{'min_'.$n} = $hash->{$n} if $hash->{$n} < $stats->{'min_'.$n}; |
70 |
|
$stats->{'max_'.$n} = $hash->{$n} if $hash->{$n} > $stats->{'max_'.$n}; |
71 |
|
} |
72 |
|
|
73 |
$hash->{number} = $stats->{total}++; |
$hash->{number} = $stats->{total}++; |
74 |
|
|