source: CIVL/mods/dev.civl.com/scripts/scale/run.pl@ 1aaefd4

#!/usr/bin/perl
use Path::Class;
use File::Basename;
use autodie;
use strict;
use warnings;
use File::Path qw(make_path);

my $civlDir="."; # directory to civl
my $numArgs = scalar(@ARGV);
my $datOut = ".";
my $benchOut = "bench.scale.out";
my $hasCivlDir=0;
my $datDir;
my $lastReleaseDat;

for(my $i=0; $i < $numArgs; $i++){
  my $arg = $ARGV[$i];

  if($arg =~ /^\-d(.*)$/){
    $civlDir=$1;
    $hasCivlDir=1;
  }elsif ($arg =~ /^\-o(.*)$/){
    $datOut = $1;
    #if(!($datOut =~ /\.pdf$/)){
      #warn "$out is not a pdf file name, $out.pdf will be used for output file instead.\n";
     # $out="$out.pdf";
   # }
  }else{
    warn "Arguments should start with -d or -o, invalid argument $arg would be ignored.\n";
  }
}

if($hasCivlDir == 0){
  warn "no civl directory is provided, current directory will be used as the civl directory.\n";
}

unless (-d $datOut) {
    mkdir $datOut;
}
$benchOut="$datOut/$benchOut";

my $scriptPrefix="$civlDir/scripts/scale";

## Get last release version number ...
my $lastReleaseVersion;

opendir(my $scriptDir, "$scriptPrefix");
while (readdir $scriptDir) {
    if ($_ =~ (/^v(([0-9]+).([0-9]+).([0-9]*))_bench_dat$/)) {
        $lastReleaseVersion = $1;
        print "Benchmark running results of CIVL v$lastReleaseVersion found\n";
        last;
    }
}

print "running scale benchmarks...\n";
my $cmd = `$scriptPrefix/runBenchScale.pl $civlDir -o$benchOut`;
print "scale benchmarks finished, now generating .dat file in $datOut...\n";
$cmd = `$scriptPrefix/parseScale.pl $benchOut $datOut`;
print ".dat file finished, now generating figure...\n";

$datDir=dir("$datOut");
while(my $datFile = $datDir->next){
  next unless ($datFile =~ /\.dat$/);
  my $benchmark;

  $datFile = basename($datFile,  "");
  ($benchmark) = ($datFile =~ /(.*)\.dat/);
  if($benchmark eq "Diningphilosopher"){
    $benchmark="Dining philosopher";
  }
  print "plotting figure for benchmark $benchmark...\n";
  if (defined $lastReleaseVersion) {
      $cmd = `gnuplot -e "TITLE='$benchmark'" -e "DAT_FILE='$datOut/$datFile'" -e "OUT_FILE='$datOut/$benchmark.pdf'" -e "LAST_DAT_FILE='$scriptPrefix/v$lastReleaseVersion\_bench_dat/$datFile'" -e "LAST_VERSION='v$lastReleaseVersion'"  $scriptPrefix/plotBench.plg`; 
  } else {
      print "No benchmark running results of previous versions found\n";
      $cmd = `gnuplot -e "TITLE='$benchmark'" -e "DAT_FILE='$datOut/$datFile'" -e "OUT_FILE='$datOut/$benchmark.pdf'" $scriptPrefix/plotBench.plg`; 
  }
}
print "scaling figures is successfully generated in $datOut\n";
#print "copy benchmark results to Ziqing's directory /home/ziqing ...";
#$cmd = `cp -a $datDir /home/ziqing/ `;