count-topo-change.pl

来自「CBRP协议（移动adhoc中基于分簇的路由协议）ns2下的源码」· 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";