tko/draw_graphs

#!/usr/bin/perl 
# 
# Copyright Martin J. Bligh (mbligh@mbligh.org), 2006

$bin = `realpath $0 | xargs dirname`; chomp $bin;
require "$bin/abat_parse.pm";

$plotgraph = "$bin/plotgraph";

$perfdir = shift(@ARGV);
die unless (-d $perfdir);

opendir PERFDIR, $perfdir;
my @data_files = grep /^plotdata\.[\w-]+\.[\w-]+$/, readdir PERFDIR;
closedir PERFDIR;
chdir ($perfdir);

%axis_labels = (    'kernbench'    => 'Elapsed time (seconds)',
            'dbench'    => 'Throughput (MB/s)',
            'tbench'    => 'Throughput (MB/s)',
            'reaim'        => 'Max Jobs per Minute',
        );

%plot_cols = (        'kernbench'    => '1:4:8',
            'dbench'    => '1:4:5',
            'tbench'    => '1:4:5',
            'reaim'        => '1:4:5',
        );
            
foreach $data_file (@data_files) {
    $data_file =~ /^plotdata\.([\w-]+)\.([\w-]+)$/;
    ($test, $machine) = ($1, $2);
    print " === Analysing data file: $data_file $test $machine\n";
    push @machines, $machine;
    open DATAFILE, $data_file || die "Cannot open $data_file";
    while ($data = <DATAFILE>) {
        print "X " . $data;
        chomp $data;
        $data =~ s/^\d+\s+//; #  get rid of count
        @data = split (/ /, $data);
        $version = $data[0];
        print "$test $version = $data\n";
        $results{$test}{$machine}{$version} = $data;
        push @versions, $version;
    }
}

@machines = list_uniq (@machines);
@versions = sort version list_uniq (@versions);

@relevant = relevant_versions(@versions);

foreach $machine (@machines) {
    foreach $test (keys(%axis_labels)) {
        graph_plot($machine, "${test}.full.${machine}",
                $test, @versions);
        graph_plot($machine, "${test}.${machine}",
                $test, @relevant);
    }
}

sub graph_plot
{
    my ($machine, $filename, $test, @plot_versions) = @_;
    my $count = 0;

    print " ----- test: $test machine: $machine $#plot_versions\n";
    open (DATA, "> $filename") || die "Cannot open data file $filename";
    foreach $version (@plot_versions) {
        my $results = $results{$test}{$machine}{$version};
        next unless ($results =~ /\S/);
        $count++;
        print "$count $version $results\n";
        print DATA "$count $results\n";
    }
    close (DATA);
    print " ----- \n";
    print `$plotgraph $filename '$axis_labels{$test}' '$plot_cols{$test}'`;
}