#! /usr/bin/perl
# Anja Feldmann <anja@net.t-labs.tu-berlin.de
# $Id: do.agg.pl,v 1.1 2008-05-26 13:53:03 joerg Exp $

require "getopts.pl";
&Getopts('t:h');

if (defined($opt_h)) {
    print("Usage: do.agg.pl [-t timeunit] input_files\n");
    print("Computes timeseries: <time> <number of events>\n");
    print("Input files: timestamp [x]*\n");
    exit(0);
}


$timeint = 0.01;
if (defined($opt_t)) {
    $timeint = $opt_t;
}

$_ = <>;
($time) = split;
$sum = 1;

$timestart = int($time / $timeint) * $timeint;
$timenext = $timestart + $timeint;

while (<>) {
    ($time) = split;
    while ($time > $timenext) {
        $timeprev = $timenext - $timeint;
        print "$timeprev $sum\n";
        $timenext += $timeint;
        # print "    erhoehe timenext: $timenext\n";
        $sum = 0;
    }
    $sum++;
    # print "next $time $sum  $timenext\n";
}

$timeprev = $timenext - $timeint;
print "$timeprev $sum\n";