#!/usr/bin/perl

use Time::HiRes qw(stat);

sub get
{
  my $f = $_[0];
  open IN,$f;

  my $epoch_timestamp = (stat($f))[9];

  my $lastiter = -1;

  while($l = <IN>)
  {
    chomp($l);
# Writing 92: 86089 = 0 0000000000 0000000000 0001010100 0001001001 00     86089 0/0/84/73

    if($l =~ /^Writing 92: (\d+) =/)
    {
      $lastiter = $1;
    }
  }
  close IN;
  @x = ($lastiter,$epoch_timestamp);
  return @x;
}
($i1,$time1) = get("gier.debug1");
($i2,$time2) = get("gier.debug");

print "$i1 $time1 ".localtime($time1)."\n";
print "$i2 $time2 ".localtime($time2)."\n";
$delta = $time2-$time1;
$time3 = $delta/($i1-$i2)*$i2+$time2;

$timestamp2 = localtime($time3);
print "Finish: $timestamp2\n";