Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
    use strict;
...
       push ( @cols , $_ ); # unless /Bandwidth.*|MSTCPLoop.*/ ;
    }
    print ("@cols \n");

Select or download this

#!/usr/bin/perl
    use strict;
...
    @avgsHash{ @cols } = @avgs;  
    print "Col,Avg\n";
    printf("%s,%f\n", $_, $avgsHash{$_}) for @cols;