proc-loss

在linux平台下

#! /usr/bin/perl

print "Loss rate calculation takes a long time. Now, running!\n";
open OUTLOG, "> result/chain/loss.log";
foreach $L (4, 5, 6, 7, 8, 10, 12, 14, 16, 20) {
    print OUTLOG "$L";
    print "Hop count $L\n";
    foreach $B ( 0, 1, 2) {
        foreach $A ( "a1", "a0.01" ) {
	    open TRACE, "result/chain/DSR$B/$A.tcp2.hop$L/out.tr";
	    $nsend = 0;
	    $nrecv = 0;
	    while (<TRACE>) {
		@ll = split(' ');
		if ( $ll[0] eq "s" && $ll[8] == 0 && $ll[34] eq "tcp" ) {
		    $nsend += 1;
		}
		if ( $ll[0] eq "r" && $ll[8] == $L && $ll[34] eq "tcp" ) {
		    $nrecv += 1;
		}
	    }
	    close TRACE;
	    $rloss = 1.0 - $nrecv/$nsend;
	    print OUTLOG " $rloss";
	}
    }
    print OUTLOG "\n";
}
close OUTLOG;