count-topo-change.pl

来自「ns2.1b5版本中cbrp碼」· PL 代码 · 共 17 行

#!/usr/bin/perl

$last_time = -1;
$topo_change = 0;

while (<>) {
    if (/^\$ns_ at (\d+\.\d+) \"\$god_ set-dist/) {
	if ($1 != $last_time) {
	    $topo_change++;
	    $last_time = $1;
	}
    }

}

print "topo change $topo_change\n";