#!/usr/bin/perl
# This script extracts the confusion matrix (tp, tn, fp, fn) from the output
# of the logs-to-c program.
#
# This is used by the validate-model script to aggregate the results of a
# cross validation for analysis with the compare-models script.
use strict;
foreach my $file (@ARGV) {
        open (FILE, "<$file") || die $!;
        my ($tp, $tn, $fp, $fn);
        while (<FILE>) {
                if ( /Correctly non-spam:\s*(\d+)/ ) {
                        $tn = $1;
                } elsif ( /Correctly spam:\s*(\d+)/ ) {
                        $tp = $1;
                } elsif ( /False positives:\s*(\d+)/ ) {
                        $fp = $1;
                } elsif ( /False negatives:\s*(\d+)/ ) {
                        $fn = $1;
                }
        }
        close (FILE);
        printf "%d %d %d %d\n", $tn, $tp, $fp, $fn;
}