blob: aaaf42e179db84f04f88a3e5b4c14f07ac6ce040 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#! /usr/bin/perl
my $lines = {};
open LOG, "<", "/home/techserver/count_datacube.log"
or die "count_datacube.log: $!";
while (<LOG>) {
chomp;
my ($date, $port, $proto, $audience, $count) = split /\s+/;
my $key = $port . ' ' . $proto . ' ' . $audience;
$lines->{$date}{$key} = $count;
}
close LOG;
my $last_date = undef;
for my $date (sort keys %$lines) {
for my $key (keys %{$lines->{$date}}) {
if (defined($last_date) && !exists($lines->{$last_date}{$key})) {
$lines->{$last_date}{$key} = $lines->{$date}{$key};
}
}
$last_date = $date;
}
for my $date (sort keys %$lines) {
for my $key (sort keys %{$lines->{$date}}) {
print "$date $key " . $lines->{$date}{$key} . "\n";
}
}
|
