#!/usr/local/bin/perl
print "\n";
print "Enter test name: ";
$name = <STDIN>;
print "Enter test type <LAN/WAN/Inet>: ";
$ttype = <STDIN>;
print "\n";

$numhosts = 2;
chop($name);
chop($ttype);

$outfile = "barrier_" . $outfile . "_" . "$name" . ".data";
$name_ = $name . "_" . $ttype . ".results";
print "Reading results from $name_\n";
open(TDATA,$name_);
$count = 1;
$n = 0;
print "Getting test #$count values . . .\n";
while ($time_ = <TDATA>) {
  if ($time_ =~ /\-\- \-n/) {
    chop($time_);
    $i = index($time_,"-n");
    $oldn = $n;
    $n = substr($time_, $i+3);
#    chop($n);
    $n =~ s/\D.*//;
    while ($time_ = <TDATA>) {
      if ($time_ =~ /^Elapsed/) {
	$time_ = substr($time_,13,5);
        $outfile = $name . "_" . $ttype . "." . "$n".".out";
	if ($n < $oldn) {
	  $count++;
          print "Getting test #$count values . . .\n";
	}
    	system "echo $time_ >> $outfile";	
	last;
      }
    }
  }
}

close(TDATA);

print "\nComputing results...\n";
$host = "TMK_" . $ttype;
$outfile = "barrier_" . $ttype . "_" . $name . ".data";

$numhosts = 2;
open(GPLOT, ">$outfile");
while ($numhosts <= 12) {
    $count = 0;
    $total = 0;
    $ave = 0.0;

    $name_ = $name . "_" . $ttype . "." . $numhosts . ".out";
    open(DATA,$name_);
    while ($time_ = <DATA>) {
	$count++;
	chop($time_);
	$total += $time_;
    }
    close(DATA);
    if ($count != 0) {
	$ave = $total / $count;
        write GPLOT;
    }
    $numhosts++;
}
close(GPLOT);
printf "\nContents of $outfile:\n";
system "cat $outfile";
print "\n";

format GPLOT =
@<<  @<<<<<
$numhosts, $ave
.


