X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=klin%2Ffrom-by-time.pl;fp=klin%2Ffrom-by-time.pl;h=332362a429169495c0b267b56c0929a3addc08de;hb=5fa125cf767f7d3dbec9bf71326fc9a397725524;hp=0000000000000000000000000000000000000000;hpb=24e14d7b223d2409788eab30149b45377d58642e;p=mx01

diff --git a/klin/from-by-time.pl b/klin/from-by-time.pl
new file mode 100755
index 0000000..332362a
--- /dev/null
+++ b/klin/from-by-time.pl
@@ -0,0 +1,49 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use Data::Dump qw(dump);
+my $stat;
+my $l = 0;
+
+while(<>) {
+	chomp;
+	my ( $mon, $dd, $time, $host, $daemon, $msg ) = split(/\s+/,$_,6);
+
+	next unless $msg =~ m/from=<([^>]+)>/;
+	my $from = $1;
+
+	my $t = $time;
+	$t =~ s/\d:\d\d$/_/; # group by 10 min
+
+	$stat->{$mon}->{$dd}->{$t}->{$from}++;
+
+	$l++;
+	print STDERR "$l " if $l % 10000 == 0;
+}
+
+#warn "# stat = ", dump( $stat );
+
+foreach my $mon ( sort keys %$stat ) {
+	foreach my $dd ( sort keys %{$stat->{$mon}} ) {
+		foreach my $t ( sort keys %{ $stat->{$mon}->{$dd} } ) {
+			my $n = 0;
+			my $e = $stat->{$mon}->{$dd}->{$t};
+			foreach my $email ( sort { $e->{$b} <=> $e->{$a} } keys %$e ) {
+				if ( $n == 0 ) {
+					printf "%3s %2s %5s %d %s\n", $mon, $dd, $t, $e->{$email}, $email;
+				} elsif ( $n == 5 ) { # XXX top
+					last;
+				} else {
+					printf "%3s %2s %5s %d %s\n", '', '', '', $e->{$email}, $email;
+				}
+				$stat->{_from}->{$email} += $e->{$email};
+				$n++;
+			}
+		}
+	}
+}
+#print "_from = ",dump( $stat->{_from} );
+foreach my $email ( sort { $stat->{_from}->{$b} <=> $stat->{_from}->{$a} } keys %{ $stat->{_from} } ) {
+	printf "%4d %s\n", $stat->{_from}->{$email}, $email;
+}