run_image_pipelines.pl

#!/usr/bin/perl

use strict;
use warnings;

my $time;
my $iterations = 100;
my @pipelines = ("pipeline_GEMO", "pipeline_GEO", "pipeline_GEOM", "pipeline_GSM", "pipeline_GSME");

# FP32
print "############### FP32 ##############\n";

foreach my $pipeline (@pipelines) {
    print "Running $pipeline\n";
    $time = `date`;
    print $time;
    `~/awesome_profiler/pp ./${pipeline} $iterations ${pipeline}_fp32.csv`;
}

# FP16
print "############### FP16 ##############\n";

foreach my $pipeline (@pipelines) {
    print "Running $pipeline\n";
    $time = `date`;
    print $time;
    `~/awesome_profiler/pp ./${pipeline}_half $iterations ${pipeline}_fp16.csv`;
}