query_hop_count.pl

来自「在Linux下做的QuadTree的程序」· PL 代码 · 共 30 行

#!/usr/local/bin/perl
$MAX_RESPONSE_HOPS = 20;
for($i= 0; $i <= $MAX_RESPONSE_HOPS; $i++) { 
    $query_hop_count[$i] = 0; 
    $query_hop_count_num[$i] = 0; 
}

$tracefile = shift;

open(FILE, $tracefile) or die " cannot open $tracefile\n";

while (<FILE>) {
    if (/^HGPS \d+.\d+ _\d+_ ([\w-]+)/o) {
	if ($1 eq "loc-reply-received") {
	    $hgps_loc_reply_received++;
	    if (/^HGPS \d+.\d+ _\d+_ [\w-]+ (\d+) (\d+)/o) {
		$query_hop_count[$2] += $1;
		$query_hop_count_num[$2]++;
	    }
	}
    }
}

for ($i=0;$i<$MAX_RESPONSE_HOPS;$i++) {
    if ($query_hop_count_num[$i] != 0) {
	$query_hop_count[$i] = $query_hop_count[$i]/$query_hop_count_num[$i];
    }
    print "$i $query_hop_count[$i]\n";
}