count-topo-change.pl

在Linux下做的QuadTree的程序

#!/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";