通讯编程

开发平台：

Visual C++

prettyplot.pl：源码内容

							#!/usr/bin/perl
#get arguments prettyplot.pl <strat> <infilename> <outfile> <legend-flag> 
$strat = shift;
$infile = shift;
$outfile = shift;
$flag = shift;
$legend = "LEGEND: n
All thruputs are in bits per sec n
A = TCP Thruput = TCP bytes recvd / run timen
B = Normalised TCP Thruput = TCP bytes recvd / on timen
C = Link Thruput = Link bytes recvd / run time n
D = Normalised Link Thruput = Link bytes recvd / ontime n
sd = Corresponding standard deviationn
Normalised link rate = Link rate * ontime / simtimenn";
open(DATA, "$infile") || die "Can't open $infilen";
open(LOG, ">>$outfile") || die "Can't open $outfilen";
$n=0;
while ($temp = <DATA>) {
    chomp($temp);
    ($retry[$n],$ontime, $A[$n],$A_sd[$n],$B[$n],$B_sd[$n],$C[$n],$C_sd[$n],$D[$n],$D_sd[$n],$n_link_rate) = split " ", $temp;
    #$n_link_rate = @line[10];
    #$ontime = @line[1];
    #$retry[$n] = @line[0];
    #$A[$n] = @line[2];
    #$A_sd[$n] = @line[3];
    #$B[$n] = @line[4];
    #$B_sd[$n] = @line[5];
    #$C[$n] = @line[6];
    #$C_sd[$n] = @line[7];
    #$D[$n] = @line[8];
    #$D_sd[$n] = @line[9];
    $n++;
}
if ($flag == 1) {
    legend();
}
print LOG "nnNormalised_Link_Rate = $n_link_rate bps
On_time = $ontimen
$stratnn";
print LOG "#N    A      A_sd     B      B_sd    C      C_sd     D     D_sdn";
for($i = 0; $i < $n; $i++) { 
    printf LOG "%-5s %-6d %-6d %-6d %-6d %-6d %-6d %-8d %-8dn", $retry[$i],$A[$i],$A_sd[$i],$B[$i],$B_sd[$i],$C[$i],$C_sd[$i],$D[$i],$D_sd[$i];
    #$str = pack("A5" x 9 , $retry[$i],$A[$i],$A_sd[$i],$B[$i],$B_sd[$i],$C[$i],$C_sd[$i],$D[$i],$D_sd[$i]);
    #print LOG "$strn";
}
close(LOG);
close(DATA);
sub legend { 
    print LOG $legend; 
}

						