proc-cwnd

在linux平台下

#! /usr/bin/perl

open CWND, "> result/chain/cwnd.log";
foreach $L (4, 5, 6, 7, 8, 10, 12, 14, 16, 20) {
    print CWND "$L";
    foreach $B ( 0, 1, 2 ) {
	foreach $A ( "a1", "a0.01" ) {
	    $prev_cwnd = 0;
	    $t_cwnd = 0;
	    $t_intv = 0;
	    $max = 0;
	    for ( $X=0; $X < 2; $X+=1 ) {
		$prev_t = 0;
		open TCPLOG, "result/chain/DSR$B/$A.tcp2.hop$L/tcp$X.log";
		while ( <TCPLOG> ) {
		    ($time, @msg) = split(' ');
		    if ( $msg[4] eq "cwnd_" && $time > 10.0) {
			if ( $prev_t != 0 ) {
			    $t_cwnd += $prev_cwnd * ($time-$prev_t);
			    $t_intv += $time - $prev_t;
			}
			$prev_t = $time;
			$prev_cwnd = $msg[5];
		    }
		}
		close TCPLOG;
	    }
	    
	    if ( $t_intv != 0 ) {
		$mean_cwnd = $t_cwnd/$t_intv;
		print CWND " $mean_cwnd";
	    } else {
		print CWND " cwnd";
	    }
	}
    }
    print CWND "\n";
}
close CWND;