main_single.pl

#!/usr/bin/perl

use File::Slurp qw/write_file/;

my $dir="resources";
my @files = qw/plain.10KB.txt plain.100KB.txt plain.1MB.txt plain.10MB.txt plain.50MB.txt/;
my $n     = 1000;

my $head = qq[type,msg_len,enc_elapsed_time_sd,dec_elapsed_time_sd,all_len,iv_len,ciphertext_len,tag_len,sig_len,c2_len,e_len\n];
for my $f ( @files ) {
  my $log_file = $f;
  $log_file =~ s/.txt$/-exp.csv/;
  write_file( "$dir/$log_file", $head );
}

for my $i ( 1 .. $n ) {
  for my $f ( @files ) {
    my $log_file = $f;
    $log_file =~ s/.txt$/-exp.csv/;
    print "\r$i: $f";
    system( qq[./hybrid_sc $dir/$f $dir/$log_file] );
  }
}