#/usr/bin/env perl -w


my $ALG='ALG_DESCONHECIDO';
my $FILE='FILE_DESCONHECIDO';
my $SIZE='0';
my $PATTERN='PATTERN_DESCONHECIDA';
my $k=0;
my $TIME='0m0.00s';

my $next_time_invalid=0;

while(<>){
	chomp;
	s/
//g;

	if(/^(real|sys)/){
		next;
	};
	if (/^\s*$/){
		next;
	};
	
	if (/^ALG\s*=\s*'?([^']*)'?$/){
		$ALG=$1;
		next;
	};
	if (/^Ar?quivo\s*=\s*(.*)$/){
		$FILE=$1;
		next;
	};
	if (/^Padrao\s*=\s*(.*)/){
		$PATTERN=$1;
		$k=0;
		next;
	};
	if (/^tamanho\s*=\s*(\d*)\s*.*$/){
		$SIZE=$1;
		next;
	};
	if (/^k\s*=\s*(\d*)$/){
		$k=$1;
		next;
	};
	if (/^user\s*(\d+)m(\d+.\d+)s$/){
		$TIME=$1;
		if ($k < length($PATTERN) and ($k < 8)){
			my $len= length($PATTERN);
			$TIME = ($1*60)+$2;
			print "$ALG; $SIZE; $FILE; $len; $PATTERN; $k; $TIME\n";
		};
		#if ($next_time_invalid == 0){
		#	print "$ALG - $FILE - $SIZE - $PATTERN - $k - $TIME\n";
		#} else {
		#	$next_time_invalid=0;
		#};
		next;
	};
	if (/^###/){
		$PATTERN='PATTERN_DESCONHECIDA';
		next;
	};
	if (/(size of pattern.*must be)|(the maximum number of errors)/){
		$next_time_invalid=1;
		next;
	};
	print "!!! Unparseable !!!>$_\n";
}