#!/usr/bin/perl

# pipe til: xclip -selection c
# Result: real: 0 config: hjælpga2 elapsed: 169.25404835 lastok: 3780 lastpass: 4

open IN,$ARGV[0] or die;

print "{| cellspacing=\"0\" border=\"1\"\n";
print "!Config\n";
print "!Real\n";
print "!Elapsed\n";
print "!n\n";
print "!failpass\n";

while($l=<IN>)
{
  chomp($l);
  if($l =~ /^Result: real: (\d) config: (.*?) elapsed: (.*?) lastok: (.*?) lastpass: (.*?)$/)
  {
    $real = $1;
    $config = $2;
    $elapsed = $3;
    $n = $4;
    $lastpass = $5;
    print "|-\n";
    print "|$config\n";
    print "|style=\"text-align:center;\" |$real\n";
    print "|style=\"text-align:right;\" |".sprintf("%.0f",$elapsed)."\n";
    print "|style=\"text-align:right;\" |$n\n";
    print "|style=\"text-align:center;\" |$lastpass\n";
  }
}
print "|}\n";