#!/usr/bin/perl
#
#

print "Dataset; Numtriples; Triples SPO; Index SPO; Total SPO; Triples OPS; Index OPS; Total OPS\n";

for $a(glob "SPO/*hdt") {
	$b = $a;
	$b=~s/SPO/OPS/g;
	#print "$a = $b\n";

	if($a=~/SPO.(.*)/) {
		$dataset = $1;
	}
	my $numtriplesA = `cat $a.index.txt | grep "Num triples" |cut -f 3 -d' '`;
	my $numtriplesB = `cat $b.index.txt | grep "Num triples" |cut -f 3 -d' '`;
	my $originalSizeA = `cat $a.index.txt | grep "Original triples" |cut -f 4 -d' '`;
	my $originalSizeB = `cat $b.index.txt | grep "Original triples" |cut -f 4 -d' '`;
	my $indexSizeA = `cat $a.index.txt | grep "Total Index" |cut -f 4 -d' '`;
	my $indexSizeB = `cat $b.index.txt | grep "Total Index" |cut -f 4 -d' '`;
	my $totalSizeA = `cat $a.index.txt | grep "Total size" |cut -f 3 -d' '`;
	my $totalSizeB = `cat $b.index.txt | grep "Total size" |cut -f 3 -d' '`;

	chomp($numtriplesA);
	chomp($numtriplesB);
	chomp($originalSizeA);
	chomp($originalSizeB);
	chomp($indexSizeA);
	chomp($indexSizeB);
	chomp($totalSizeA);
	chomp($totalSizeB);

	print "$dataset;$numtriplesA;$originalSizeA;$indexSizeA;$totalSizeA;$originalSizeB;$indexSizeB;$totalSizeB\n";
}