#!/usr/local/bin/perl5 -w
#!/usr/bin/perl

$cache_count = `tail -1 cacheprof.out.summary`;

my (@line) = split(/[,\)]\s+/, $cache_count);

# 1 == reads, 2 == writes, 3 == read misses, 4 == write misses
# We need to eat the trailing ',' in the number.

my ($refs) = $line[1] + $line[2];
my ($hits) = $refs - ($line[3] + $line[4]);

print "Hit ratio for last test = " . $hits / $refs . "\n";
