From 67f401c412e8040de18764f485e4bd606ff31832 Mon Sep 17 00:00:00 2001
From: Jaume Nin <unknown>
Date: Fri, 2 Dec 2011 16:53:55 +0100
Subject: [PATCH] Perl script to run a set of simulations using lena-simple-epc

---
 src/lte/test/epc-test-run-time.pl | 35 +++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100755 src/lte/test/epc-test-run-time.pl

diff --git a/src/lte/test/epc-test-run-time.pl b/src/lte/test/epc-test-run-time.pl
new file mode 100755
index 000000000..78c4981a1
--- /dev/null
+++ b/src/lte/test/epc-test-run-time.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+use strict;
+use IO::CaptureOutput qw(capture qxx qxy);
+use Statistics::Descriptive;
+use Cwd;
+
+my $nIterations = 1;
+
+open( FILE, '>epcTimes.csv' );
+print FILE "#sTime\tnodes\trTime\trTDev\n";
+
+my @nodes = ( 1,2,3,4,5,6,7, 8, 12, 14);
+my @simTime = ( 1, 2, 5, 7, 10);
+
+foreach my $time (@simTime)
+{
+         foreach my $node (@nodes)
+         {
+            my $timeStats = Statistics::Descriptive::Full->new();
+            for ( my $iteration = 0 ; $iteration < $nIterations ; $iteration++ )
+            {
+               my $launch = "time ./waf --run \'lena-simple-epc --simTime=$time --numberOfNodes=$node'";
+               my $out, my $err;
+               print "$launch\n";
+               capture { system($launch ) } \$out, \$err;
+               $err =~ /real(.+)m(.+)s/;
+               my $minutes = $1;
+               my $seconds = $minutes * 60 + $2;
+               $timeStats->add_data($seconds);
+            }
+            print FILE "$time\t$node\t";
+            print FILE $timeStats->mean() . "\t"
+              . $timeStats->standard_deviation() . "\n";
+         }
+}