#!/usr/bin/perl --
#
# Anthy: Calculate a sum of counts in sampling data.
#	Tue,21 Apr,2009
#	Copyright(C)2009 G-HAL (fenix.ne.jp)
#
use strict;

my $argc = @ARGV;

my $debug = 0;

{
	my $timestamp_oldest = -1;
	my $timestamp_newest = 0;
	my $num   = 0;
	my $stat1 = 0;
	my $sum   = 0;
	while (<STDIN>) {
		chomp( $_ );
		my $input = $_;
		if ($input =~ /^\+(.+) T([0-9]+) F([0-9]+)$/i) {
			my $contents  = $1;
			my $timestamp = $2;
			my $count     = $3;
			if (0 < $timestamp) {
				$num ++;
				$sum = $sum + $count;
				if (1 == $count) {
					$stat1 ++;
				}
				if ($timestamp_newest < $timestamp) {
					$timestamp_newest = $timestamp;
				}
				if (($timestamp < $timestamp_oldest) || ($timestamp_oldest < 0)) {
					$timestamp_oldest = $timestamp;
				}
			}
		}
	}
	print "Oldest: ". $timestamp_oldest .", Newest: ". $timestamp_newest ."\n";
	print "Oldest: ". scalar localtime $timestamp_oldest;
	print "\n";
	print "Newest: ". scalar localtime $timestamp_newest;
	print "\n";
	print "Total"
			.": Num = ". $num
			.", Num Stat 1 = ". $stat1
			.", Num not(1) = ". ($num - $stat1)
			.", Num not(1) % = ". ($num - $stat1) / $num
			."\n";
	print "Total"
			.", Sum = ". $sum
			.", Sum Stat not(1) = ". ($sum - $stat1)
			.", Sum Stat not(1) % = ". ($sum - $stat1) / $sum
			."\n";
	exit 0;
}

__END__
# [ EOF ]