run.pl

#!/usr/bin/perl

use strict;
use warnings;

my $time;
my $iterations = 100;

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

print "Running Lenet\n";
$time = `date`;
print $time;
`~/awesome_profiler/pp ./lenet_tanh $iterations lenet-fp32.csv`;

print "Running FC2\n";
$time = `date`;
print $time;
`~/awesome_profiler/pp ./fc2_clipped $iterations fc2-fp32.csv`;

print "Running FC3\n";
$time = `date`;
print $time;
`~/awesome_profiler/pp ./fc3_clipped $iterations fc3-fp32.csv`;

print "Running FC4\n";
$time = `date`;
print $time;
`~/awesome_profiler/pp ./fc4_clipped $iterations fc4-fp32.csv`;

print "Running CIFAR\n";
$time = `date`;
print $time;
`~/awesome_profiler/pp ./cifar_keras $iterations cifar-fp32.csv`;

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

print "Running Lenet\n";
$time = `date`;
print $time;
`~/awesome_profiler/pp ./lenet_tanh_half $iterations lenet-fp16.csv`;

print "Running FC2\n";
$time = `date`;
print $time;
`~/awesome_profiler/pp ./fc2_half $iterations fc2-fp16.csv`;

print "Running FC3\n";
$time = `date`;
print $time;
`~/awesome_profiler/pp ./fc3_half $iterations fc3-fp16.csv`;

print "Running FC4\n";
$time = `date`;
print $time;
`~/awesome_profiler/pp ./fc4_half $iterations fc4-fp16.csv`;

print "Running CIFAR\n";
$time = `date`;
print $time;
`~/awesome_profiler/pp ./cifar_keras_half $iterations cifar-fp16.csv`;