Capsim® Batch Iterative Simulation Example Perl Script

#/usr/bin/perl
#
# (c) 2001 XCAD Corporation
# Date: October 19, 2001
#
@noises=("0.0","0.1","0.15","0.16","0.18","0.2","0.25","0.3","0.4","0.5","0.6","0.7","0.8","0.9","1.0");
@bits=("100000000","100000000","100000000","100000000","100000000","100000000","100000000","10000000","10000000","10000000","10000000","10000000","10000000","10000000","10000000");
$k=0;
foreach $noise (@noises) {
   print "Processing $noise  at total bits $bits[$k]\n";

   open(TEMPLATE,"sys-ete-ber.template") || die "Could not open template!\n";
   open(TEMP_TOPOLOGY,">temp.t") || die "Could not open temp topology!\n";



   while (