proc-thr

在linux平台下

#! /usr/bin/perl

# chain

open OUTLOG, "> result/chain/chain.log";
foreach $L (4, 5, 6, 7, 8, 10, 12, 14, 16, 20) {
    print OUTLOG "$L";
    foreach $B ( 0, 1, 2) {
	foreach $A ( "a1", "a0.01" ) {
	    open TCPLOG, "result/chain/DSR$B/$A.tcp2.hop$L/thr.log";
	    while ( <TCPLOG> ) {
		($value) = split();
		print OUTLOG " $value";
	    }
	    close TCPLOG;
	}
    }
    print OUTLOG "\n";
}

# grid7x7

open OUTLOG, "> result/grid7x7/grid7x7.log";
foreach $L (1, 2, 4, 6, 8, 10, 14) {
    print OUTLOG "$L";
    foreach $A ( "a1", "a0.01" ) {
	open TCPLOG, "result/grid7x7/$A.tcp$L/thr.log";
	while ( <TCPLOG> ) {
	    ($value) = split(' ');
	    print OUTLOG " $value";
	}
	close TCPLOG;
    }
    print OUTLOG "\n";
}


# random waypoint

open OUTLOG, "> result/randway/randway.log";
foreach $L (8, 16, 32, 50) {
    print OUTLOG "$L";
    foreach $A ( "a1", "a0.01" ) {
	open TCPLOG, "result/randway/$A.tcp$L/thr.log";
	while ( <TCPLOG> ) {
	    ($value) = split(' ');
	    print OUTLOG " $value";
	}
	close TCPLOG;
    }
    print OUTLOG "\n";
}


# manhattan

open OUTLOG, "> result/manhattan/manhattan.log";
foreach $L (0, 1, 2, 5, 10, 20) {
    print OUTLOG "$L";
    foreach $B ( 0, 1, 2) {
	open TCPLOG, "result/manhattan/DSR$B/tcp.man$L/thr.log";
	while ( <TCPLOG> ) {
	    ($value) = split(' ');
	    print OUTLOG " $value";
	}
	close TCPLOG;
    }
    print OUTLOG "\n";
}