#!/usr/bin/perl

use strict;
use warnings;

use Parse::MediaWikiDump;

$SIG{ALRM} = \&progress;

$| = 1;
print '';

my $i = 0;
my $file = shift(@ARGV);

my $num_iter = shift(@ARGV);
$num_iter = 10 unless defined($num_iter);

my $start = time;
my $dump = undef;

alarm(1);

while($i++ < $num_iter) {
	$start = time;

	print "Iteration $i\r";
	$dump = Parse::MediaWikiDump::Pages->new($file);

	while($dump->next) { };

	print "\n";
}

my @times = times;

print $times[0] + $times[1], "\n";

sub progress {
	return unless defined($dump);
	my $elapsed = time - $start;

	$elapsed = 1 if $elapsed == 0;

	print "Iteration $i: ";

	print int($dump->current_byte / $dump->size * 100), "% ";

	my $speed = int($dump->current_byte / $elapsed);

	print $speed, " bytes per second \r";

	alarm(1);
}